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ABSTRACT 

The  maintenance  of  consistency  in  a  distributed  aatacase 
system  environment  presents  a  number  ot  vexing  croolems  to 
tne  datacase  system  designer.  Tnis  is  more  so  tne  case  *hen 
tne  aataoase  system  contains  replicated  aata  ana  is  also 
designed  to  provide  a  nign  degree  ot  avaiiaoility  under 
conaitions  ot  networx  partitioning. 

This  tnesis  investigates  tne  use  of  a  proposes  aaactive 
concurrency  control  algorltnin  as  a  possioie  aiternati/e 
solution  for  a  number  of  tne  proolems  facing  tne  aatacase 
system  designer  in  tne  areas  of  concurrency  control, 
partitlonea  networks,  and  long-livea  transactions. 
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It  INTRODUCTION 


A  funaamental  concept  tor  aataoase  systems  is  the  notion 
of  consistency.  If  a  database  is  viewea  as  a  set  of  oata 
objects  whicn  are  related  in  some  *ay,  and  it  tnese 
relationsnips  are  viewed  as  assertions  about  tie  oojects, 
tnen  a  database  is  considered  consistent  only  it  it 
satisfies  all  integrity  assertions.  Transactions  which 
enter  tne  database  system  ana  read  or  alter  tne  values  in 
data  oojects  are  said  to  move  tne  dataoase  from  one 
consistent  state  to  anotner.  Thus,  tne  transactions, 
comprised  of  a  set  of  atomic  actions  3re  considered  units  of 
consistency.  Since  the  transaction's  atomic  actions  cannot 
execute  at  precisely  tne  same  instant  in  time,  tne  dataoase 
can  oecome  temporarily  inconsistent.  Moreover,  concurrent 
execution  can  cause  tne  dataoase  to  oecome  inconsistent. 
Therefore,  to  insure  database  consistency,  a  concurrency 
control  mechanism  is  required. 

Tne  main  tas<  for  a  concurrency  control  mecnanism  is  to 
insure  tne  serializablllty  of  transaction  execution.  it  all 
of  the  transactions  in  a  database  system  were  to  execute 
serially,  that  is  one  right  after  anotner,  consistency  would 
be  insured  as  no  transaction  could  intervene  in  another's 
execution  cycle.  If  a  set  ot  transactions  execute 
concurrently  and  the  result  of  tnat  execution  is   equivalent 


to  the  result  obtained  from  some  seouentlal  execution  or  the 
same  set  of  transactions,  tne  execution  is  saia  to  ce 
serializaole  Cl],  Seriaiizable  execution  of  transactions  is 
sufficient  to  insure  consistency  In  a  database  system.  Any 
execution  sequence  which  cannot  be  serialized  must  not  be 
allowed. 

Tne  mechanism  for  concurrency  control  *e  investigate  is 
a  proposed  aaaptive  concurrency  control  algorithm  oasea  on 
an  optimistic  strategy  for  insuring  dataoase  consistency, 
badal  C2,3],  A  transaction  scneme  employing  suotransacticns 
*ith  related  atomic  actions  provides  tne  transaction  ">caei 
for  tne  algorithm.  Tne  proposed  algorithm  is  oroviaea  in 
Appendix  A, 

For  a  distributed  database  system,  the  oartitioned 
network  environment  introduces  some  oitflcult  problems.  a 
networx  partition  occurs  vvnen  two  or  more  disjoint 
collections  of  nodes  cannot  communicate  between  tnemselves 
even  though  nooes  in  a  given  subset  of  tne  net*or*  are 
operational.  In  a  database  system  *nicn  orovioes  some 
degree  of  avaiiaoility  in  the  face  of  networ*.  partitioning, 
tnis  situation  can  completely  destroy  mutual  consistency. 
As  a  result,  most  solutions  to  tnis  problem  oroviae  a  less 
tnan  desirable  degree  of  data  avaiiaoility  >nile  operating 
in  the  partitioned  mode.  Because  *e  consider  availability 
of  oata  just  as  lmoortant  as  consistency  for  a  distributed 
system,  and  since  tne  proposed   algoritnm   provides   varyinc 


degrees  of  availability  while  maintaining  mutual 
consistency,  *e  extend  the  algorithm  to  achieve  a  solution 
for  the  problem  of  the  partitioned  network  and  analyze  its 
usefulness  as  a  possiole  solution  to  tnat  problem. 

The  transaction  concept,  which  nas  gained  nae 
acceptance  In  such  areas  as  airline  reservations,  electronic 
fund  transfers  ana  car  rental  applications,  does  not  in 
Itself  place  any  limitations  on  tne  duration  of  transactions 
in  a  system.  In  this  regara,  tnere  are  some  interesting 
parallels  oetaeen  tne  notion  of  a  long-livea  transaction  as 
introduced  by  Gray  C4]  and  tne  notion  of  temporary  data 
states  *hicn  is  contained  In  tne  oroposai  tor  tne  adaptive 
concurrency  control  algorithm.  The  oarallels  oecome  more 
pronounced  once  tne  algorithm  is  considered  in  tne  context 
of  a  concurrency  control  mechanism  operating  under  net*or< 
partitioning.  we  analyze  this  situation  in  this  tnesis  with 
the  hope  of  snedaing  some  lignt  on  tne  subject. 

Chapter  2  is  a  summary  of  metr.ods  previously  oroposea  as 
posslole  solutions  to  tne  af orerrientioned  orociems  dealing 
with  the  maintenance  of  consistency  in  a  database  system. 
Chapter  3  introduces  the  transaction  model  and  tne  prooosed 
algorithm.  In  cnapter  4  we  extend  the  algorithm  to  the 
network  partition  environment  and  discuss  its  application  to 
long-lived  transactions.  In  cnapters  5  and  o  we  Droviae  an 
implementation  of  the  algoritnm  as  *ell  as  test  results  for 
different   scenarios,    eg.    for   various   classes    of 


transactions,  differing  degrees  of  conflict  rates,  different 
complexities  of  non-serializaoie  execution,  etc. 
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II.   PREVIOUS  *QPK  IN  THESIS  SUBJECT  APLAS 
A.   INTRODUCTION 

In  tnis  chapter  *e  discuss  some  Drior  prooosals  tfhich 
nave  teen  lntroducea  as  possible  solutions  to  the  proolems 
of  concurrency  control,  network  partitioning,  ana  long-lived 
transactions.  In  lookinq  at  concurrency  control  we  are 
particularly  interested  in  metnocis  wnicn,  while  insuring  a 
consistent  dataoase,  could  also  easily  aaapt  to  the  ever 
chancing  dataoase  environment,  in  this  regara,  *e 
discovered  tnat  there  was  a  paucity  or  metnoas  wnicn 
provided  any  significant  measure  ot  tlexibility  for  eltner 
the  datacase  designer  or  tne  dataoase  user. 

*nile  analyzing  methods  for  ueaiing  with  oartitioned 
network:  ervironments  we  are  most  interestea  in  solutions 
whlcn  allow  for  non-stoo  operation  in  ail  partitions  after 
network  partition,  Xhree  solutions  in  this  area  provea  most 
attractive  and  provided  some  insignt  towards  the  extension 
of  tne  proposed  algorithm  to  tne  partitioned  environment. 

At  present,  very  little  nas  been  written  aoout  tne 
long-lived  transaction  problem  in  aataoase  systems.  *e 
tnerefore  present  some  thoughts  on  the  subject  Dy  Gray  [4J 
and  make  an  attempt  to  analyze  these  concepts  in  Hunt  of 
tne  proposed  algorithm. 
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B,   CONCURRENCY  CONTROL 

Two  pnase  locxing  requires  a  transaction  to  acquire  a 
lock  on  every  data  object  it  will  access  oefore  any  of  tne 
loc<s  are  released.  Tnis  reduces  the  availacility  of  tne 
data  oojects  as  some  of  tne  data  oojects  locked  oy  tne 
transaction  could  nave  Deer  open  to  reaas  or  upcates  while 
tne  transaction  *as  executing  at  ether  data  cDjects,  This 
method  also  has  an  adverse  effect  on  tne  level  ot  concurrent 
execution  which  is  experiencea  Dy  tne  transaction.  Tnis  is 
true  because  no  portion  of  tne  transaction,  however  disjoint 
it  may  ce  from  other  components  of  tne  transaction,  is 
allowed  to  execute  in  tne  system  until  every  data  ooject  is 
locked.  However,  wnen  two-onase  locking  is  comoined  witn  a 
two-pnase  commit  policy  sucn  that  commit  occurs  at  tne  ena 
of  transaction  execution,  a  sirnoie  recovery  metnoa  for 
transactions  is  provioed. 

Time  stamps  proviae  a  second  strategy  tor  concurrency 
control  in  a  distributed  database  system.  Under  tnis 
strategy,  transactions  are  required  to  execute  in  tne  oner 
of  tneir  time  stamos.  Time  stames,  in  conjunction  witn  a 
two-phase  commit  policy,  can  ce  almost  as  restrictive  as  tne 
two-pnase  locking  scheme  in  regards  to  data  object 
availability  ano  concurrency  of  transaction  execution. 
Moreover,  the  lacx  of  global  system  <nowieoge  at  net*or< 
partition  provides  tne  time  stamp  solution  witn   nightmarish 


12 


problems  at  merge  time  as  consideration  must  be  given  co  tne 
differences  in  time  stamp  assignment  among  ail  tne  computers 
in  tne  system.  Neither  two-Pnase  locxing  nor  time  stamps 
provide  a  general  solution  to  tne  long-livea  transaction 
problem  as  neitner  provides  a  mechanism  wnlcn  can  maxe  a 
distinction  between  data  whicn  is  permanent  ana  data  *nicn 
is  temporary. 

A  strategy  for  concurrency  control  which  seems  to  oe 
gaining  in  popularity  is  called  optimistic  cecause  it  freely 
allows  transactions  to  execute  within  tne  system  and  insures 
that  tne  results  of  execution  are  serializable  at  tne  oata 
ODject  itself,  inis  strategy  is  cased  on  tne  assumption 
tnat  tne  conflict  rate  at  a  given  data  ooject  is  low  cecause 
tne  portion  of  tne  aataoase  accessed  at  any  one  time  oy  the 
atomic  action  of  a  transaction  is  small,  i.e.,  tne  loc< 
granularity  is  small,  Oilman  LbJ  ,  Since  it  has  seen  snown 
that  in  many  real-life  applications  tne  prooaoility  of 
conflict  is  low,  several  proposals  for  optimistic 
concurrency  control  nave  been  published.  For  a  centralized 
database,  Kung  and  Roolnson  nave  proposed  a  solution  loj , 
This  approach  *as  elacorateo  on  by  Ceri  ano  G*icKi  t/J  and 
applied  to  a  oistriDuted  dataoase  system.  a^dai  t^,j] 
described  a  different  approach  utilizing  an  aiaoritnm 
intended  for  use  in  a  distrlDUteo  system.   It  is  tnis  last 
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aDproacn,  extenaed  by  Badal  ana  ^cElyea  LSJ  whicn  ^ 
invesitgate  for  partltionea  network  execution  ana  long-lived 
transactions. 

C.   NETWORK  PARTITIONING 

1 .   One  Partition  Solutions 

inere  are  numerous  solutions  allowing  one  partition 
operation  in  tne  event  the  network  experiences  oarticioning . 
Since  these  solutions  restrict  availability  to  an 
unacceptable  degree,  we  spena  little  time  on  their  analysis. 

Examples  ot  tnese  methods  are  :  voting,  token 
passing  and  primary  sites.  In  voting  eacn  site  is  assigned 
a  weignt  or  numoer  of  votes.  *hen  a  partition  occurs,  tne 
sites  in  the  partition  witn  tne  most  votes  are  tne  sites 
which  can  process  transactions  witn  the  least  restrictions. 
Sites  in  other  partitions  can  process  read-only  type 
transactions,  With  token  passing  each  aata  object  nas  a 
token  associated  *lth  it  which  moves  trom  site  to  site, 
when  a  partition  occurs,  tne  site  with  tne  token  for  a  aata 
ooject  may  update  that  aatd  ooject.  Primary  sites  is  an 
approacn  where  eacn  aata  object  nas  a  site  assignee  to  it 
which  is  responsible  for  a  data  object's  activities.  At 
partition  time,  if  a  transaction  is  executed  in  a  partition 
tnat  contains  all  tne  data  objects  in  its  read  and  write 
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sets,   the   execution   is   allowed.    otherwise,   only   real 
operations  are  permitted. 

Sacn  strategy  attempts  to  make  tne  upaatma  ot  aata 
objects  site-specific  according  to  a  set  of  rules  and 
constraints.  Since  the  methods  restrict  activity  (usually 
updates)  in  some  partitions,  data  avallaDllity  is  aecreasea. 
Consistency  preservation  varies  trom  nnetnoo  to  method.  In 
voting,  consistency  is  easy  to  maintain  witn  a  high  cost  in 
availability  as  only  the  partition  with  tne  most  votes  can 
perform  update  operations  on  data  objects.  This  degree  of 
preservation  is  not  the  case  with  the  primary  sices 
strategy,  which  is  similar  to  tne  to<en  metnoo,  as  tne 
primary  site  for  updates  could  be  involved  in  a  nard  crash 
and  an  alternate  site  is  designated  as  a  oacxup.  Over  all, 
each  of  tnese  methods  fan  short  ot  a  general  solution  to 
the  desirability  ot  achieving  a  reasonaole  oalance  Detween 
insuring  consistency  in  a  aatabase  and  providing  a  mgn 
degree  of  availacllity  at  all  sites. 

2.   Multi-Partition  Solutions 

Approaches  to  tne  partitioning  proolem  nave  oeen 
suggested  whereby  consistency  is  maintained  throughout  tne 
system  and  increased  availaoility  is  provlaea  at  any  given 
site. 

Parxer  ana  Ramos  [9]  prooose  a  metnod  wnicn  *ould 
utilize   a   log-filter   and   version  vector  scneme  to  aetect 
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multiple  tile  joint  consistency.  Tnis  prooosal  addresses 
tne  automatic  detection  of  mutual  inconsistencies  at  tne 
file  level  and  at  the  partition  merge  interface.  it  coes, 
nowever,  rely  on  user  intervention  during  processing  tc 
decide  on  a  course  or  action  once  certain  tyoes  ot  conflicts 
are  detected.  In  addition,  tnis  approacn  allows  tor  some 
low  level  of  inconsistency  to  exist  in  tne  file  system  for 
snort  periods  of  time  after  a  transaction  nas  in  tact 
committed . 

An  approach  involving  semantic  Kno*ieoge  aoout  tne 
dataDdse  applications  was  proposed  cy  Faissoi  C10J,  five 
classes  of  semantics  spanning  the  most  simple  operation  to 
the  most  complex  are  useo  to  alio*  uooates  in  independent 
partitions,  Each  class  snares  a  common  merge  algorithm 
which  can  be  tailored  to  a  particular  application  cy  tne 
application  programmer.  At  present,  of  tne  proposed 
solutions  to  the  partitioning  prooiem,  Faissol's  approacn 
seems  to  De  tne  most  interesting  ana  complete,  he  aces, 
nowever,  assume  that  a  concurrency  control  mechanism  exists 
wnich  will  insure  consistency  in  each  individual  partition 
during  periods  of  network  partition.  Tne  most  attractive 
feature  in  the  proposal  is  that  users  may  operate  tne  system 
under  partitioning  in  a  manner  *nicn  assures  reconciliation 
can  oe  performed  automatically  at  merge  time. 

A  method  for  automatic  control  of  consistency  and 
oataDase  data   ooject   reconciliation   *nich   relies  on  the 
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manipulation  ot  precedence  graphs  is  proposed  in  bresanl 
[11],  In  this  approach,  use  is  made  ot  Falssol's  rormal 
definition  of  correct  partitioned  moae  operation.  Partition 
logs  are  utilizeo  to  store  information  necessary  ror  use  oy 
a  partition  merge  algorithm.  Transaction  activity  is  stored 
in  these  logs  which,  at  merge  time,  are  converted  into 
precedence  graphs.  Tnese  graphs  are  inspected  to  insure 
that  a  resultant  global  schedule  ot  transaction  execution  is 
serializaole  for  all  partitions. 

*ith  tnese  papers  as  cac<grouna,  in  cnaDter  4  we 
investigate  our  prooosed  adaptive  concurrency  control 
algorithm  as  a  posslole  candidate  for  the  concurrency 
control  mechanism,  during  normal  system  operation,  wnile  cne 
system  is  partitioned,  ana  at  partition  merge  time,  *e  ao 
tnis  Investigation  in  the  nopes  that  it  may  provide  what 
seems  to  be  a  more  general  solution  to  tne  networ< 
partitioning  problem. 

D.   LONG-LIVED  TRANSACTIONS 

Gray  C4J  introduces  transactions  wnich  can  persist  in  a 
system  for  long  perioas  of  time  before  they  commit,  Tnese 
transactions  may  nave  lifetimes  that  can  oe  measured  in  aays 
or  weeKs,  for  instance,  applications  sucn  as  travel, 
insurance  and  escrow  commonly  nave  transactions  wnose 
durations  span  sucn  time  frames.  Gray  envisages  solutions 
to  long-livea  transaction  situation  as  having   to   accept   a 
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lower  degree  ot  consistency  wltnin  tne  aataoase.  *e  look  to 
an  extension  of  tne  proposea  algoritnin  as  a  possible 
concurrency  control  mechanise  tor  long-lived  transactions. 
mis  rcecnanisp  snoula  not  require  tne  acceptance  ot  a 
lower  degree  of  consistency  in  tne  handling  of  tnese  tyoes 
of  transactions. 


18 


III.   TRANSACTION  MODEL  AnD  InE  PKGfQSED  ALGOHITri 
A,   DESCRIPTION  UF  THE  TRANSACTION  MODEL 

This  section  descnoes  the  transaction  model,  tr.e 
components  of  the  concurrency  control  mecnanism  and 
transaction  execution  under  concurrency  control. 

Eacn  transaction  enters  ana  exits  tne  aistriouted  system 
at  one  site,  callea  tne  initiating  site.  It  is  cc^posea  of 
one  or  more  atomic  actions  each  of  wnich  oerforms  eitner  a 
read  or  an  update  on  a  sirgie  data  ocject.  Interdepenaent 
atomic  actions  are  group ec  into  suotransactions.  Ine 
suDtransactions  may  execute  concurrently  or  sequentially. 

A  conflict  history  is  a  cart  or  eacn  transaction  curing 
its  execution.  This  history  is  a  record  or  tne 
transaction's  conflicts  witft  otner  transactions.  conflict 
is  deflnea  as  occurring  whenever  two  transactions  execute 
any  comDination  of  read  or  upaate  of  tne  same  data  ooject 
except  read-read.  The  conflict  history  is  upaatea  with 
information  held  at  each  data  oDject  visitea  Dy  tne 
transaction.  This  information  is  heia  in  a  log  (uo  Logj. 
The  DO  Log  holds  the  record  of  a  transaction's  activity 
against  the  aata  oolect  along  with  data  from  tne 
transaction's  conflict  nistory.  The  uo  Log,  wnicn  operates 
in  a  fashion  -which  is  similar  to  tnat  of  a  stacX,  is  updated 
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whenever  the  transaction  accesses  the  oata  oDject.  fne 
Log  also  indicates  tne  transaction's  status  as  temporary, 
committed  or  aoortea.  A  committed  entry  aenotes  a  corru iltted 
transaction,  i.e.  one  whose  initiating  site  nas  determined 
the  execution  cycle  to  oe  complete  for  all  of  its 
suotransactions.  It  a  transaction  is  in  conflict  with  an 
entry  In  the  log  which  is  net  committed,  it  marKs  its  entry 
as  temporary  waiting  Ct(*)).  «nen  all  previous  temporary 
versions  (versions  generated  uy  other  transactions;  are 
committed,  a  transaction's  temporary  version,  t(w),  is 
changed  to  ready  to  commit  (t(r)),  for  tne  case  where  a 
transaction  nas  to  aoort,  any  transactions  wnicn  nave 
temporary  versions  oased  or.  tnat  transaction  also  must 
aoort , 

During  transaction  execution,  a  local  concurrency 
controller,  resident  at  eacn  site  and  executing  a  copy  of 
tne  adaptive  concurrency  control  aiaoritmn,  utilizes  the 
information  contained  in  tne  transaction's  conflict  history 
and  tne  contents  of  tne  L0  Log  to  detect  and  resoive  non- 
serlalizatle  execution  at  each  site.  ine  concurrency 
control  mecnanism  constructs  a  preceaence  relation  from  tne 
Information  in  tne  DU  Log  anc  tne  conflict  history,  A  non- 
seriallzaDle  execution  occurs  *hen  a  transaction  appears  in 
more  than  one  place  in  tne  relation,  *nen  non-serializaoie 
execution  is  detected,  the  concurrency  control  mecnanism 
will   restore   serializable   execution   via   a   roiioac*  and 
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reexecutlon  process  which  may  involve  one  or  more  or  c ft e 
transactions  present  in  tne  precedence  relation,  rne 
restoration  of  seriaiizaDle  execution  can  oe  accomDiisned 
utilizing  a  metric  indicating  tne  amount  ot  "worx."  performed 
oy  tfte  transaction. 

wnen  a  transaction  attempts  to  read  or  update  a  aata 
object  at  a  given  site,  it  may  or  may  not  find  the  ODject 
loc<ed  oy  anotner  transaction,  it  tne  object  is  net  locked, 
tne  transaction  executes  on  it,  however,  should  a  1  o  c  <  oe 
encountered,  the  transaction  waits  for  a  precetermineo 
period  of  tine,  if  tne  previous  transaction  releases  tfte 
Iock  oefore  tfte  time-out  period  expires,  execution  will 
continue,  witn  tne  iock  still  being  present  arter  time-out, 
tne  transaction  attempting  to  access  tne  object  sends  a 
conflict  nistory  to  its  initiating  site,  and  indicates  it  is 
Dlockeo  at  tfte  site.  It  will  then  ce  up  to  tne  initiating 
site  concurrency  controller  to  proceed  *itn  tne  transaction 
execution. 

Once  a  transaction  Is  allowed  access  to  a  data  ooject, 
it  locxs  tftat  object  and  begins  its  execution.  Snoulo  cms 
transaction  oe  in  conflict,  it  may  elect  to  noid  its  Iock  on 
tfte  data  ooject  until  tne  previous  temporary  version  eitner 
commits  or  aborts,  or  tne  transaction  may  release  tne  locK 
after  creating  its  own  temporary  version.  If  tne  former  is 
the  case,  the  snort  duration  Iock  oecomes  a  long  duration 
Iock  and  the  concurrency  control  algorithm  switcnes  from  tne 
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optimistic  mode  to  tne  pessimistic  moae.  Trie  numoer  cr 
temporary  versions  in)  allowed  to  build  up  at  a  lata  ocject 
can  be  adjusted  to  meet  various  application  criteria  ana 
storage  tecnnologies.  If  n  =  U,  then  tne  algoritnm 
functions  similar  to  two-pnase  locfcing  with  two-Dnase 
commit.  For  higher  n»  tne  algoritnm  allo*s  a  areater  aegree 
of  concurrency. 

T*o  points  snould  be  noted  here,  Tne  tirst  is  that  when 
n  =  uf  a  oeaalocK  detection  process  will  ce  reauirea  and 
secondly,  wnen  n  is  high,  a  domino  effect  can  occur  wnereov 
all  transactions  wnose  temporary  versions  are  oasea  on  an 
aborted  transaction's  temporary  version  must  tnemseives 
abort. 

To  illustrate  in  more  detail  how  tne  alaoritnm  performs 
its  concurrency  control  functions,  a  vie*  is  ta<en  of  tne 
transaction  as  a  carrier  of  information.  The  transaction 
carries  its  conflict  history  from  site  to  site  ana  if  a 
transaction  FORKS  to  execute  suotransactions  concurrently, 
eacn  transaction  carries  a  copy  of  tne  conflict  nistory  with 
it.  At  each  site,  the  transaction  attempts  to  detect  ana 
resolve  non-serializable  execution  ano  in  tne  orocess,  it 
updates  its  own  conflict  history  wnicn  is  deposited  at  tne 
site  in  the  data  object's  DO  Log,  *nen  tne  transaction 
completes  Its  wor<,  it  returns  to  its  initiating  site.  Any 
concurrently  executing  subtransactions  join  as  tney  move 
towards  the  initiating  site  and  tneir  conflict  histories  are 
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merged,  before  a  transaction  exits  tne  system,  it  must 
ensure  it  nas  generateo  only  seriaiizaole  execution  during 
Its  journey  tnrougn  tne  system  and  only  tnen  may  ic  commit 
all  of  its  temporary  versions. 

At  tne  initiating  site  tne  transaction's  entire  conflict 
history,  accumulated  daring  its  execution  tnrougn  tne 
system,  is  inspected.  if  the  conflict  nistory  is  empty,  tne 
transaction  is  ready  to  commit  and  it  will  so  notify  eacn 
site  *rnere  it  nas  temporary  versions.  Snoula  a  conriict 
history  contain  entries,  tne  transaction  sencs  a  codv  of  its 
conflict  nistory  to  tne  initiating  site  of  eacn  transaction 
listed  in  the  history.  The  transaction  tnat  sent  its 
conflict  history  to  otner  sites  tnen  invokes  tne  initiation 
site's  concurrency  controller.  A  precedence  relation  is 
constructed  from  tne  concatenation  ot  this  conflict  nistory 
ana  any  conflict  nlstories  receivea  iron  otner  transactions, 
if  no  non-serlalizable  execution  is  detected,  the 
-transaction  will  send  its  preceaence  relation  to  tne 
initiating  site  of  v»nicnever  transaction  it  last  added  to 
its  precedence  relation.  Tnis  process  continues  until 
either  non-serlalizaDle  execution  is  detected  or  until  the 
transaction  receives  a  preceaence  relation  wnich  only 
duplicates  relations  currently  neld.  in  the  latter  case, 
tne  transaction  is  ready  to  commit  and  it  will  be  necessary 
tor  tne  transaction  to  broadcast  a  commit  message  to  eacn 
site  wnere  the  transaction  nas  temporary  versions. 
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for  the  case  where  non-serializaole  execution  is 
indicated,  seriallzaole  execution  is  restored  in  tne  same 
manner  as  Defore,  witn  consiaeration  qiven  to  tne  econonc 
factors  involved  in  restoration.  unce  non-ser ializaoie 
execution  is  no  longer  a  PossiDility  for  a  given 
transaction,  the  transaction  enters  its  commit  pnase  *r,ere 
it  will  commit  all  of  its  temporary  versions.  Tnis  pnase  is 
complete  when  all  the  temporary  versions  on  wnich  tne 
transaction  nas  odsea  its  temporary  versions  nave  committed 
ana  tne  transaction's  status  is  marked  commit  at  all  tne 
data  oDjects  visited. 

Considering  tne  case  where  the  initiating  site  nas 
received  a  conflict  history  from  a  suDtransaction  wnich  nas 
been  olocked  out  of  a  data  odject  ana  nas  experiencea  a 
time-out  condition,  tne  initiating  site  takes  tne  same 
actions  tnat  it  woula  nave  ta<en  if  tne  transaction  naa 
completed  its  course  and  returned  to  the  initiating  site. 
in  this  situation,  any  restoration  reauireo  should  allow 
tnis  transaction  to  execute  last  oecause  if  it  aia  not,  tne 
transaction  may  create  more  non-serializaole  execution  after 
restoration. 

The  advantages  of  tne  proposed  algorithm  can  oe 
summarized  as  follows: 

1.  when  there  is  no  conflict,  it  functions  *itn  minimum 
overhead.   There   are   fewer   messages  required  to  commit  a 
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transaction  though  it  must  be  oointed  out  tnat  tnls 
reduction  is  acnieved  at  the  cost  of  losino  site  autonomy 
for  a  longer  period  of  time. 

2.  An  increase  in  concurrency  may  oe  acnieved  cy 
allowing  transactions  to  access  results  generated  from  ot.ner 
transactions  not  yet  committed.  Tne  algoritnTi  is  considered 
optimistic  in  tnat  it  is  assumea  tnat  tnose  "not  yet 
committee"  transactions  will  eventually  commit,  if  tnis 
aoes  not  occur,  tne  amount  of  wotk  >v  h  i  c  n  must  oe  unaone  can 
be  limited  by  a  locning  mechanism. 

3.  The  algorithm  can  switch  Detween  pessimistic  t using 
long  duration  Iocks}  and  optimistic  Cusinq  short  duration 
locfcs)  modes  at  any  time  and  for  any  data  object,  Tnus,  in 
the  same  oataoase,  nign  contention  riles  can  ocerate  in  tne 
pessimistic  mode  and  low  contention  tiles  in  tne  optimistic 
mode  -  all  Deing  controlled  oy  the  tne  same  concurrency 
control  algorithm. 

a,   TRANSACTION  EXECUTION  EaA.^PLc 

For  this  example  we  assume  tnat  each  aata  object 
accessea  by  a  transaction  is  located  at  a  different  site 
witnin  the  distributed  system.  Qata  object  <a>  will  ce 
located  at  Site  A,  oata  object  \d>  at  Site  b,  and  so  tortn. 
Furthermore,  assume  tnat  a  relatively  low  degree  of 
concurrency  is  desired  and  thus  tne  algorithm  will  switcn 
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from  optimistic  to  pessimistic  modes  wnen  edcr. 
suotransaction  encounters  its  first  conflict,  i.e.,  n  =  i. 

Let  transaction  Tl  enter  the  system  at  Site  a,  l"l 
consists  of  only  one  suotransaction  wnicn  first  executes  at 
Site  C,  Tl  tnen  transits  to  Site  a  *here  it,  upon 
inspection  of  the  applicable  bu  L.oy,  detects  a  conflict  ftith 
transaction  T2,  II  executes  on  that  data  ooject  and  nolas  a 
Iock  on  it  as  it  returns  to  its  initiating  site,  Site  a. 
Tl's  conflict  nistory  contains  only  12  at  aata  ooject  c  witn 
a  metric  reflecting  tne  amount  of  work  acne  d  y  bctn 
suotransactions  up  to  tne  point  in  time  of  tneir  reacning 
data  object  d.  A  viable  form  tor  tne  conflict  nistory 
entry,  and  tne  one  usea  in  this  example,  is  given  as:  Tl  : 
IT2I1  :  b  :  7>, 

Transaction  12  enters  the  system  at  Site  D.  it  also 
consists  of  only  one  subtransaction  wnicn  first  executes  at 
Site  3,  tnen  moves  to  Site  F,  It  tnere  aiscovers  tnac  it  is 
in  conflict  with  transaction  TJ,  it  executes  on  data  ooject 
f,  updates  its  conflict  history  to  incluae  (T3T2  :  f  ;  ^> , 
nolds  the  Iock  on  <f>,  and  then  transits  to  site  C.  At  site 
C  it  encounters  a  lock  wnich  is  nelo  by  T3.  After  waiting  a 
time-out  period,  12  finos  tne  Iock  still  present.  it  senas 
a  message  to  its  Initiating  site  containing  its  conflict 
history  and  the  fact  that  it  is  blocked  at  site  C.  T2  will 
mark  its  conflict  history  with  a  "*"  to  indicate  tnat  it  is 
still  executing.   12  :  <T3T2  :  f  :  4+>. 
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Transaction  T3  enters  the  system  at  Site  E  and  consists 
of  two  subtransactlons:  ST31  and  ST32.  ST31  transits  to 
Site  F,  executes  there,  and  tnen  returns  to  its  initiating 
site,  Site  £.  Suotransaction  ^132  moves  from  site  r„  to  oite 
C  to  execute  tnere.  After  ootaininq  tne  Iock;  ana  cnecxing 
tne  DO  Log  entry,  ST32  discovers  tnat  it  is  in  conrlict  with 
transaction  Ti.  ST32  win  execute  at  data  ooject  c  anc  <eeo 
its  loc<  as  it  also  moves  Dac<  to  site  e,  its  initiating 
site.  *hen  ST31  ana  ST32  u'uIn,  they  will  merge  their 
separate  conflict  histories  to  form  vj's  conflict  nistory. 
Since  SI31*s  is  empty  ana  SI32"s  consists  of  li  at  aata 
ooject  c  Cassume  the  metric  to  De  11)  tj's  conflict  history 
will  oe  T3  ;  <T1T3  :  c  :  ll>, 

wnen  ail  of  a  transaction's  suDtransactions  nave 
returned  to  their  initiating  site  either  tne  transaction 
will  ce  able  to  enter  its  commit  pnase  or  it  will  oe 
necessary  for  it  to  invoke  the  site's  concurrency  controller 
in  order  to  detect  ana  resolve  cossiDie  non-seriallZobie 
execution.  Since  in  our  example  eacn  transaction  has  a 
non-empty  conflict  history,  the  initiating  site  must  attempt 
to  aetect  non-serializaole  execution.  tacn  transaction  will 
send  a  copy  of  its  conflict  history  to  tne  initiating  site 
of  eacn  transaction  in  its  conflict  history. 
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Tl 

12 


<T2T1  :  b  :  7>  ---->  12 
{TJT2  :  f  :  4+>  ---->  Ti 
<T1T3  :  c  :  u> >  ti 


Eacn  transaction  will  construct  a  precedence  relation 
from  the  concatenation  of  its  conflict  nistory  witn  any 
conflict  nistory  it  nas  received  from  otner  transactions. 


II  ;   iT2Ti  :  o  :  / 

TiTi  :  c  :  in 

T2  :   (T3T2  :  t  S  4+ 

T2li  :  t>  ;  7> 

T3  :   (T1T3  ;  c  i  11 

X3T2  :  t  :  4+> 


A  orecedence  relation  will  reveal  tne  presence  of 
serializaole  execution  if,  once  a  transaction  nas  received  a 
conflict  nistory  wnicn  it  had  received  oreviously,  it  is  not 
able  to  detect  non-serializaole  execution.  That  is,  it  in 
adding  a  relation  to  its  preceaence  relation  a  transaction 
adds  only  auplicate  conflicts,  and  if  amonast  ail  tne 
conflicts  present  in  its  oreceaence  relation  no  cycles  can 
be  detected,  tnen  that  transaction's  execution  sequence  is 
serializaole,  Transactions  will  continue  to  oass  tneir 
conflict  histories  to  the  initiating  site  of  wnicnever 
transaction  was  last  aoded  to  its  conflict  nistory,  until 
eitner  non-serializable  execution  is  detected  or  the 
preceaence  relation  can  detect  serializaole  execution,  as 
above.    Since,   in   our   example,   we  nave   not  yet  reached 
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either  of  these  conditions,  it  is  necessary  to  pass  tne 
precedence  relations  whlcn  have  accumulatea  up  to  tnis  soint 
in  time.   They  will  be  passed  as  follows! 

Xi   ---->   X3 

T2   -  — >   ri 

T3   ->   X2 

Eacn  transaction  constructs  a   new   precedence   relation 
from  the  relations  it  receives: 


Tl  :   <T2T1  i  o  :  7 

riT3  ;  c  :  11 

x3!2  ;  £  ;  4  + 

T2T1  ;  o  :  7> 

T2  :   <T3T2  :  r  :  h+ 
T2T1  :  d  :  7 
iitj  :  c  s  11 
TJT2  :  t    :    4+> 

T3  :   mi 3  :  c  :  11 

T3I2  :  r  :  4+ 

T2T1  :  d  :  7 

TiT3  :  c  :  H> 


Each  transaction  can  now  detect  that  non-serializaole 
execution  has  occurred  since  a  transaction  is  listea  in  n<ore 
tnan  one  location.  Since  T2  is  still  executing  it  is  cest 
to  resolve  the  conflicts  in  a  */ay  wnicn  will  allow  12  to 
execute  last.  (If  none  of  tne  transactions  are  still 
executing  then  the  least  cost  transaction  pair  *ouic  oe 
rolled  oac<  to  break  the  cycle).  This  means  that  I2T1  is 
tne  transaction  pair  wnich  must  be  re-executeo  at  aaca 
ooject  o  in  oroer  to  resolve  the  non-serlalizacle  execution. 
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Tl  and  T2  roll  back  to  Sice  o.  il  executes  ana  returns  to 
its  initiating  site  with  an  empty  conflict  nlstory  anci  is 
able  to  commit,  «hen  II  commits,  13  will  change  tne  uCi  Log 
entry  at  aata  object  c  to  t(r),  reiease  its  iock  on  \c>  ,  ana 
commit,  Atter  Tl  nas  re-executed  at  <b>,  12  will  oe  aole  to 
re-execute  at  <b>,  at  if},  and  at  <c>.  At  each  aata  object 
12  will  acguire  a  lock,  execute,  ana  mark  its  versions  as 
tCw)  or  t(r)  depending  on  now  long  it  ta<es  Tl  ana  l'i  to 
commit , 

Commit  will  occur  in  tne  following  manner,  once  tne 
cycle  is  broken,  II  will  oe  returning  to  its  initiating  site 
witn  an  empty  conflict  history  ana  all  ot  its  versions 
marked  t(r).  il  broadcasts  a  message  to  all  of  its  sites 
telling  them  to  commit  their  uu  Log  entries.  As  soon  as  il 
commits,  13  will  release  the  lock  that  it  is  holding  at  c?ite 
C  and  send  a  message  to  its  initiating  site  sayinq  tnat  its 
temporary  version  at  Site  C  is  ready  to  commit.  as  tms  is 
the  only  t(w)  version  that  T3  was  *alting  for,  iJ  can  now 
broaacast  a  commit  message  to  all  its  sites.  At  tnls  point, 
transaction  T2's  temporary  versions  will  nave  tneir 
designation  changed  to  tCr),  tne  locks  held  by  12  win  ce 
released,  and  messages  will  be  sent  to  T2's  initiating  sice 
Indicating  that  the  sites  are  ready  to  commit.  Lastly,  12 
will  oroadcast  a  commit  message  to  those  sites. 
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IV.   EXTENSIONS  TO  THE  PRuPUSfcP  ALGORITHM 

A.   LONG-LIVED  TRANSACTIONS 

Trie  usefulness  of  tne  transaction  concept  in 
applications  sucn  as  electronic  fund  transfers,  airline 
reservations  and  car  rentals  nas  oecome  evident  in  tne  past 
few  years,  Tne  traditional  transaction  model  for  tnese 
applications  assumes  tnat  tne  transactions  are  snort  lived 
i.e.,  tney  are  transactions  of  snort  duration.  However/  tne 
concept  " transaction"  does  not  in  itself  imply  any 
limitation  on  tne  lifespan  of  tne  transaction  in  a  system. 
It  would  seem  tnat  a  more  general  concept  of  a  transaction 
would  not  impose  any  time  limit  on  tne  aurdtion  of  tne 
transaction.  In  fact,  tnere  are  many  applications  sucn  as 
escrow,  travel,  insurance,  legal  proceedings,  etc.,  wnich  cy 
tneir  nature  reguire  transactions  *nicn  can  last  for  a  long 
time.  Gray  C 4 J  calls  tnis  class  ot  transactions  long-livea. 
*e  will  attempt  to  snow  now  tne  transaction  model  ana  tne 
adaptive  concurrency  control  mecnanism  presented  in  18J  may 
be  applicaoie  to  tne  problem  of  supporting  lona-livea 
transactions.   Tnis  proolem  is  also  addressed  in  C^,JJ. 
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1 •   Compensating  Iransaction  Approach 

In  a  conventional  transaction  environment,  .vnen  tne 
effects  or  a  committed  transaction  must  ce  altered,  a 
compensating  transaction  is  run  to  bac*  the  value  out.  This 
metnod  is  not  general  in  tnat  it  only  applies  to  commutative 
operations  and  it  is  somewhat  deceptive  in  that  tne  user  nes 
oeen  led  to  ceiieve  tnat  tne  value  or  tne  aata  opject,  crior 
to  compensation,  was  permanent  wnen  in  fact  it  *as  not. 
Moreover,  other  users  may  nave  made  aecisions  cased  on  tne 
data  ODject  value  with  tne  understanding  tnat  tne  value  may 
oe  permanent.  what  each  of  tnese  users  nave  oeen  dealing 
with  is  tne  outcome  of  a  long-lived  transaction  ana  not  a 
permanent  aata  ooject  value.  It  may  ce  true  tnat 
individuals  wno  wor<  in  this  environment  are  a*are  or  tne 
Pitfalls  of  maiclng  aecisions  in  tnese  situations  and  act 
accordingly,  but,  we  ceiieve  tnat  tne  system  should  provide 
a  vehicle  whereoy  tne  user  can  ce  maae  explicitly  aware  tnat 
the  data  value  he  is  dealing  with  is  temporary. 
Additionally,  tne  compensating  method  itself  may  not  ce 
generally  appllcaole,  ihis  may  pe  because  different  parties 
who  are  affected  or  involved  in  the  long-lived  transaction 
seem  to  have  differing  views  as  to  *nat  constitutes  a 
transaction.  For  example,  from  Gray  l4j ,  in  a  reservations 
scenario:  "The  customer  thinxs  of  this  wnole  scenario  as  a 
single   transaction.    The  agent  views  tne  fine  structure  of 
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tne  scenario,  treatina  each  step  as  an  action.  ihe  airlir.es 
and  hotels  see  only  indiviuual  actions  cut  view  tnem  as 
transactions,  Ihis  example  ma<es  it  clear  tnat  actions  may 
oe  transactions  at  tne  next  lower  levex  of  abstraction. " 

2.   A  More  General  Approacn 

It  seems  tnat  organizations  whicn  aeai  with  tne 
applications  listea  aoove  view  tneir  transactions  witn 
customers  as  separate  actions  even  tnougn  eacn  action  must 
oe  accomplished  to  satisfy  the  customer's  request,  some  of 
tnese  actions,  are  long-lived,  using  tne  reservations 
example,  it  seems  tnat  tne  transaction  involved  nas  two 
levels  of  atomicity;  one  dealing  utn  tne  generation  of 
temDorary  data  and  tne  other  witn  commitment  (or  aoortion) 
of  tne  data.  It  is  tnls  property  wr.icn  leads  us  to  celieve 
tnat  a  mechanism  should  ce  provided  to  tne  dataoase  user 
tnat  can  ma<e  the  nature  of  tne  data  more  explicitly  Known. 
In  tnis  regarc,  tne  user  requires  that  two  choices  ce  maae 
availaDle  to  him  cy  tne  system  :  a)  the  ability  tor  the  user 
to  be  made  aware  of  the  temporary  nature  of  tne  data  ooject 
and/or  o)  a  capability  sucn  tnat  tne  user  can  re  presented 
with  the  illusion  that  tne  temporary  data  is  permanent  *nen, 
in  fact,  it  is  not.  Nothing  we  see  in  tne  compensating 
transaction  scheme  allocs  for  cnoices  such  as  tnese.  Another 
conceptualization  of  tnis  idea  is  to  view  tne  temporary  oata 
as  conditional  data  which  becomes  true  only  when  tne 
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long-ilved  transaction  commits.  For  example,  tne  granting 
of  a  loan  to  an  applicant  is  a  temporary  state  for  an  escrow 
process  as  it  is  predicated  on  ail  ot  tne  conaltions  ot  tne 
escrow  oeing  satisfied,  Tne  loan  is  executed  Ccommittea) 
only  it  tne  conaitions  are  met;  otherwise  it  is  canceled 
(aborted) . 

3,   Temporary  versions  and  Long-Llvea  Transactions 

As  tne  adaptive  concurrency  control  algorithm  is 
basea  on  temporary  versions  of  aata  ocjects  ana  temporary 
states  for  data,  one  can  expect  tnat  tne  proposea  adaptive 
concurrency  control  mechanism  can  naturally  support  tne 
execution  of  long-lived  transactions.  This  expectation  is 
basea  on  the  fact  tnat  the  algorithm  treats  long-livea 
transactions  in  the  same  manner  as  snort-lived  transactions. 
This  manner  of  treatment  is  possible  as  botn  types  of 
transactions  generate  temporary  versions;  the  only 
ditference  is  tnat  long-livea  versions  are  more  oersistent. 
As  a  result,  even  though  long-lived  transactions  seem  to 
generate  mostly  temoorary  data,  they  provide  no  aaoitionai 
complexity  for  the  concurrency  control  mecnanlsm. 

The  transaction  model  ana  the  temporary  versions 
introduced  in  tne  oroposea  algorithm  provide  the  properties 
we  deem  necessary  for  tne  user's  more  realistic  view  ot  nis 
data,  Badal  1123.  Gur  reasons  for  coming  to  this  conclusion 
are  twofold.    First,   the   suDtransaction   scheme   nas   two 
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levels  of  atomicity.  One  deals  with  tne  Generation  or 
temporary  data  and  tne  second  ueals  with  tne  commitment  or 
aDortion  of  all  tne  suctransaction's  temporary  versions. 
Tnis  fits  nicely  witn  our  conception  ot  the  two  levels  of 
atomicity  displayed  oy  long-lived  transactions  Cfor  a  given 
transaction,  all  temporary  data  actions  nave  to  occur  ar.a 
all  temporary  oata  eitner  becomes  permanent  or  aoortsj. 
Secondly,  tne  use  of  time  stamps  for  temporary  versions  ana 
their  permanent  storage  would  allow  tne  concurrency  control 
mechanism  to  support  queries  using  time  rererences  sucn  as 
Mwnat  were  the  values  of  data  ooject  x  at  time  t".  This,  of 
course,  is  a  matter  dependent  on  apolication  reauirements 
ana  available  storage  technologies. 

4.   Temporary  versions  and  tne  Domino  effect 

Since  the  1-th  version  of  a  data  ocject  is  created 
by  updating  tne  (i-13-tn  version,  ana  since  tne  l-tn  version 
cannot  commit  until  all  versions  it  is  oasea  on  commit,  tne 
possioility  exists  for  a  domino  effect  *hen  a  transaction 
aoorts.  This  is  true  because  *nen  tne  the  <-tn  version  of  a 
data  object  is  aoorted  all  j  versions,  J>k,  must  also  aocrt. 

Problems  which  may  be  posed  oy  the  domino  effect  can 
be  minimized  because  tne  eftect  can  be  limited  oy  the  user 
varying  tne  number  of  copies  of  the  temporary  versions 
allowed  to  exist  at  a  data  object  at  any  one  time,  i.  e.,  oy 
varying  the  value  of  "n",   Moreover*  tne   domino   effect   in 
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our  scneme  and  the  compensation  transaction  in  the 
conventional  system  are  in  tact  tne  same  thing  froir  tne 
user's  viewpoint.  botn  result  in  tne  user  losing  tne  value 
of  the  data  object  which  was  current  in  the  user's  vie*  of 
the  database.  However*  it  should  oe  noted  that  the  proposed 
adaptive  concurrency  control  mecnanism  itself  is  intenaea  to 
minimize  interference  among  transactions,  mis  is  aue  to 
tne  mechanism's  detection  of  non-serializaole  execution  on 
the  smallest  pcssioie  granularity  i.e.,  tne  accessed  record 
field.  This  will  decrease  ana  possicly  eliminate  all 
conflicts  among  transactions. 

It  may  be  possiDle  to  minimize  tne  domino  effect  for 
the  proposed  algorithm  througn  tne  application  or  two 
methods,  Ihe  rirst  methoa  *ould  capitalize  on  trie 
commutaole  nature  of  most  types  of  data  in  tne 
aforementioned  apolicatlon  areas.  Tnis  would  alio*  versions 
oased  on  an  aoorted  version  to  remain  active  after  some 
acceptaDle  adjustment  to  tne  data  ooject  values.  ihe  use  of 
a  recovery  algorithm  based  on  the  semantics  of  tne  data  is 
the  otner  method  which  coulo  nelp  to  aorogate  any  primary 
concerns  aoout  the  effect  of  multiple  temporary  versions 
Deing  aborted.  Tnis  scheme  is  closely  associated  with  tne 
particular  type  of  application  the  DBMS  is  servicing  because 
semantic  considerations  are  directed  to  tne  meaning  or  tne 
data.  An  example,  from  Faissol  Liu],  will  demonstrate  tne 
semantic  constraints  which  may  apply  to  a  data  ocject:   in  a 
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credit-debit  environment ,  "money  is  conserved",  i.e.,  every 
credit  to  one  account  must  be  matched  to  a  debit  to  some 
other  account.  To  facilitate  these  Kinds  cf  semantic 
considerations,  the  DbMS  must  De  aDie  to  proviae  the 
application  programmer  with  a  vehicle  for  construction  of 
semantic-based  algorithms  whicn  can  De  applied  to  tne 
temoorary  versions  resident  at  a  given  data  ooject, 

5.   Conclusion 

The  prcoosed  optimistic  concurrency  control 
algorithm  seems  to  nave  an  innate  aoility  for  handling 
long-lived  transactions.  because  tne  algorithm  can  proviae 
to  the  user  a  more  realistic  vie*  of  temporary  aata  *nile 
providing  a  man  level  of  consistency,  *e  oeiieve  its 
extension  to  the  prodem  of  long-lived  transactions  mignt  oe 
possible, 

6,   NSHORK  PARTITIONING 

A  distributed  database  system  nas  the  potential 
advantages  of  greater  data  availability  and  reliability 
since  aata  objects  may  oe  replicated  and  nence  accessed  at 
several  sites  throughout  tne  system.  If,  n  o  *  e  v  e  r  , 
consistency  among  copies  of  the  data  is  more  important  tnan 
availability,  multiple  copies  might  not  provide  any 
improvement  in  availaoility .  *itn  consistency  as  tne 
primary  concern  tne  system  *ould  either  oe  holding  iocks  on 
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data  objects  to  prevent  inconsistencies  from  arising  cr  it 
would  be  spending  a  large  amount  at  time  detectinq  ^nd 
resolving  inconsistencies,  either  or  tnese  actions  would 
aetract  from  data  availability. 

Mutual  consistency  requires  chat  it  all  upaate  activity 
were  to  cease,  after  some  period  ct  time  all  cooies  of  the 
same  data  will  converge  to  the  same  value.  mere  are 
numerous  Known  algorithms  for  maintaining  mutual  consistency 
during  operation  of  a  aistriouted  database,  L6,?,1J#14J, 
These  algorithms  don't,  however,  aeal  *ith  the  aaaeri 
complexities  wnicn  arise  *  n  e  n  the  n  e  t  w  o  r  <  Decodes 
partitioned,  A  networ<  partition  occurs  when  two  or  ;r.ore 
disjoint  subsets  of  sites  in  tne  networ<  can  not  exchange 
messages  through  the  networx  even  tncugn  some  or  ail  of  them 
are  operational. 

1 .   Partitioned  Processing 

Given  that  a  system  is  partitioned  there  are  tnree 
different  general  approaches  to  handling  transaction 
processing,  witn  each  tnere  is  a  traae-off  between  the 
level  of  data  availability  ana  tne  amount  ot  etrort 
necessary  to  restore  system-wide  consistency  once  the 
partition  ceases  to  exist  -  as  availaoility  is  increasea  so 
is  the  amount  of  effort  reguired  for  restoration  of 
consistency. 
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a.  halt  Processing 

Une  possibility  is  to  halt  all  transaction 
processing  until  tne  networ<  is  completely  reconnected. 
Tnis  is  one  extreme  whereby  aata  availability  goes  to  zero 
and  no  need  exists  to  restore  consistency  upon  system  merge 
(due  to  tne  partition). 

b.  One  site  Execution 

Tne  usual  solution  is  to  alio*  only  sites  within 
a  chosen  partition  to  process  transactions  that  ucaate  aata 
objects.  All  sites  still  nave  tne  caodbility  ot  acceDtina 
read-only  transactions,  enough  tne  data  reaa  will  possibly 
De  out  of  aate.  Tnis  solution  certainly  allows  some  aegree 
of  availability,  tnougn  at  a  cost  ot  tne  overhead  necessary 
to  correct  arising  inconsistencies.  Any  inconsistencies 
wnicn  ao  develop,  however,  are  rairly  simple  to  resolve 
during  system  reconciliation.  ire  resolution  .nay  oe 
accompiisned  Dy  merely  propagating  any  undated  data  objects, 
from  the  one  and  only  site  wnich  *as  allowed  to  name 
updates,  to  all  otner  sites  where  that  aata  is  reolicatea. 

c.  Concurrent  Execution 

Another  solution  would  oe  to  continue  operating 
all  sites  "in  parallel"  during  tne  partition  ana  to 
reconcile  the  databases  at  oartition  merge.  it  *ouin  De 
wortnwnlie  to  nave  all  partitions  in  operation  (allowing 
ootn  read  and  upoate  capability)  it  availability  of  aata  is 
more   important   than   tuaintaining  its  consistency,  provided 
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tnat  "conflicts"  between  copies  or  oata  can  always  oe 
automatically  reconciled  wnen  communications  ar^  re- 
established, 

2.   Requirements  for  Concurrent  execution 

If  sites  within  disjoint  partitions  are  allowed  to 
continue  operating,  tnere  are  three  general  requirements 
which  must  oe  satisfied  in  order  for  a  system  to  oe  viaoie. 

a.   Integrity  constraints 

Integrity  constraints  must  not  se  violated.  fne 
two  components  of  integrity  constraints  descrioed  in  Faisscl 
C103  are  operational  constraints  and  semantic  constraints. 
Operational  constraints  wnicn  mignt  result  in 
Inconsistencies  in  any  given  partition  will  be  nanalec  cy 
our  concurrency  control  mecnanism,  semantic  constraints 
present  In  eacn  partition  of  a  partitioned  network  neea  not 
differ  from  the  constraints  present  when  tne  network  is 
completely  connected. 

It,  nowever,  the  semantic  constraints  present 
when  the  networ<  is  completely  cennectaa  are  correctlv 
modified  to  retlect  operation  in  a  partitioned  environment, 
tne  system  reconciliation  can,  in  some  cases,  oe  maoe  a 
trivial  process.  That  is,  if  sufficient  semantic  Knowledge 
Is  usea,  the  transaction  schedules  produced  in  eacn 
partition  may  oe  made  independent.  if  Site  A  is  partitioned 
from   Site   a   and   the   partition's   transactions   are 
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independent,  tne  reconciliation  process  may  oroceeo  ss 
follows:  Site  »'s  transactions  couid  oe  executes  on  too  of 
Site  A's  to  produce  oata  oc^ect  vaiues  at  Site  A  *nicn  could 
then  be  taken  to  nave  tne  "correct"  vaiues.  Xnese  new 
values  would  simply  oe  passed  to  Site  d  and  installed  at  tne 
replicated  data  objects. 

Semantic  constraints  present  wnen  tne  net^orx.  is 
comoletely  connected  must  necessarily  oe  modified  to  alio* 
updates  witnin  disjoint  partitions.  Consiaer  an  airline 
reservation  system  and  a  specific  iliant  witn  200  seats.  it 
is  odvIous  that  it  tne  reservation  system  were  to  partition, 
it  mould  not  oe  feasible  to  allow  tne  reservation  or  20u 
seats  within  eacn  cartltion.  Semantic  Knowledge  mignt 
dictate  that  eacn  partition  has  control  over  reservations 
for  half  of  the  seats.  Certainly  the  necessary  semantic 
modification  for  tne  partitioned  environment  will  ce 
application  aeoenoent.  Also  equally  certain  is  tne  fact 
tnat  in  any  relatively  large  system  it  would  be  imposside 
to  produce  a  complete  set  of  semantic  constraints  which 
would  oe  capaoie  of  nandling  all  possible  partitions.  *e 
therefore  see  tnls  semantic  approacn  to  controlling 
reconciliation  as  being  of  limited  usefulness  and  as 
certainly  not  being  ade  to  nandle  reconciliation  in  tne 
most  general  case. 
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b.  Control  external  Action 

External  actions  mast  ce  controllea.  These  are 
non-recoveracle  actions  Ce.q.  a  discersed  payment).  3ecause 
of  the  independent  processing  nature  of  eacn  partition,  the 
problem  of  external  actions  is  complex.  Tne  aataoase 
manager  most  likely  will  restrict  external  actions  Ahen 
operatinq  under  partitions,  possioly  Dy  allowing  only  cnosen 
sites  to  execute  transactions  net  easily  reversea, 

c.  Restore  Mutual  Consistency 

Upon  elimination  or  tne  partition,  mutual 
consistency  among  reoiicateo  aata  oolects  must  oe  rescoreo. 
Through  tne  use  of  tne  concurrency  control  mecnanism  tne 
internal  consistency  of  any  one  partition  can  oe  preservea. 
However,  since  tnere  is  nc  communication  Between  tne 
partitions,  tne  transactions  executing  in  eacn  partition  nay 
cause  tne  values  of  data  objects  replicated  in  aifterent 
partitions  to  aiverge.  This  divergence  destroys  mutual 
consistency  and  results  in  a  aataoase  no  longer  meeting  its 
assertions  once  tne  Dartltion  is  mergea,  as  discussed 
above,  semantic  constraints  may  oe  utilized  in  a  limited 
numoer  of  applications  to  acnieve  tne  reauired 
reconciliation.  Discussing  a  general  solution  to  tne  mutual 
consistency  problem  is  the   primary  goal  of  this  section. 
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3.   Solving  The  Mutual  Consistency  Proolen 

In  order  to  ascertain  the  correctness  or  tne 
approacn  to  be  presented  in  tnis  section  we  must  have  an 
understanding  of  what  correct  operation  in  a  oartltioned 
environment  consists  of.  we  will  consider  first  an  iaea 
wnicn  is  presented  in  Faissol  LI 03, 

If  S  is  a  scnedule  composed  of  transactions  navino 
executed  witnin  two  disjoint  partitions,  *e  are  concerned 
witn  determining  a  schedule  equivalent  to  some  serial 
execution  or  S,  it  need  not  necessarily  oe  a  scnecule 
equivalent  to  s.  It  snouio  be  understood  tnat  tnis  concept 
of  scnedule  equivalence  might  not  produce  the  same  results 
as  would  be  obtained  from  a  connected  network  (due  to  tne 
concurrency  there  may  oe  different  "correct"  sets  of 
results),  but  this  will  cause  no  prooiem  if  serializacility 
is  the  criteria  tor  correct  system  operation. 

Our  approach  for  handling  mutual  consistency  ta<es 
the  following  form.  After  a  partition  occurs,  transactions 
within  each  partition  will  continue  to  execute  against  tneir 
data  oo^ects,  some  of  which  are  replicated  in  at  least  one 
other  partition,  within  each  partition,  at  a  site 
designated  the  control  site,  a  Partition  Log  is  created. 
This  log  will  nave  information  accumulated  in  it  aoout  every 
transaction's  activities  within  tne  partition.  It  *ill 
contain  information  aDout  activity  against  eacn  oata  ODject 
such   as   transaction-IDs,   read   and   write   sets   of   tne 
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transaction,  conflict  nistories,  and  tne  old  ana  new  values 
of  tne  data  object.  Tne  necessary  information  Mix  oe 
collected  by  each  transaction  as  it  passes  cnrough  tne 
system,  mis  information  will  oe  passed  to  and  storea  in 
the  Partition  Log  in  tne  oraer  in  wnich  transactions  nave 
finished  execution.  If  a  transaction  whicn  nas  completed 
its  execution  is  rollea  bac<  by  the  concurrency  controller 
in  order  to  maintain  seriaiizacle  execution  witnin  tne 
partition,  then  it  will  be  necessary  to  remove  tne  roiled 
back  transaction's  data  from  tne  Partition  bog.  This  will 
result  in  a  total  ordering  of  the  transactions  for  a  given 
partition. 

At  partition  reconnect  time,  activity  will  ne 
allowed  to  continue  only  for  transactions  which  had  aireaoy 
begun  execution.  It  is  necessary  first  to  create  a  static 
environment  throughout  tne  system  sucn  tnat  no  new- 
transactions  are  allowed  to  enter  and  all  ola  ones  nave 
completea  execution. 

The  reconciliation  process  begins  by  usina  tne  aata 
contained  in  each  Partition  Log  to  create  a  serial  scnecuie 
for  that  partition.  Since  the  scnecuie  contained  within  any 
one  Partition  Log  resulted  from  execution  insured 
seriallzaoie  by  tne  partition's  concurrency  controller,  tne 
serial  schedule  produced  is  guaranteed  to  be  cycle  free. 

Next,  it  is  necessary  to  construct  a  global 
precedence   relation   utilizing   ootn   tne   serial  scnedules 
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which  nave  been  produced  and  information  contained  m  eaci 
Partition  Log.  once  the  giooai  relation  is  constructed  it 
is  necessary  to  inspect  it  for  cycles.  if  tne  relation  is 
acyclic  then  tne  transactions  contained  witnin  are 
serializaole  (Davidson  L15J  contains  a  proof  ot  tmsj  ana  it 
is  sufficient  for  restoration  of  consistency  to  forxara  the 
updated  values  ot  modified  data  oDjects  to  tne  sites  -vp.ere 
replication  occurs. 

Both  rfrignt  L'ioj  and  Davidson  [lb]  discuss  tne 
construction  and  use  of  a  precedence  graph  to  oroviae  a 
means  for  determining  the  transactions  *nicn  snouic  oe 
rolled  oacK,  we  will  use  their  aporoacn,  modified  to  fit 
our  implementation  strategy  and  concept  of  conflict 
histories  and  precedence  relations.  rneir  precedence  grapn 
G  =  IV, E)  is  defined  as  the  vertices  */  oelna  tne  union  or 
the  transactions  from  all  partitions,  and  tne  euges  E  oeina 
the  union  of  "Dependency  Edges"  (aright,  or  "tnopie  Eaoes" , 
Davidson)  *itn  "Precedence  edges"  ano  "interference  Edges". 

Dependency  Edges  are  edges  *nicn  represent  tne  fact 
tnat  one  transaction  read  or  /.rote  a  value  wnlcn  nao  ceen 
previously  updated  Dy  a  different  transaction  in  tne  same 
partition,  Tne  presence  of  Precedence  Edges  indicates  tne 
fact  that  a  transaction  read  or  wrote  a  value  *nicn  was 
later  changed  oy  another  transaction  also  in  tne  same 
partition.  Interference  Edges  appear  wnen  a  transaction  in 
one   partition   has   read   or   updated  a  data  ooject  ano  any 
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transaction  In  anotner  partition  aiso  nas  upaatea  tnat  aata 
object. 

me  "Oepenaency  Edges"  and  "Precedence  edges"  nave 
already  been  constructed  by  our  concurrency  controller  wfiicn 
nas  remained  active  within  eacn  partition.  They  are 
inciudea  as  conflict  history  pairs  in  the  Partition  Logs, 
It  still  remains  for  us  to  construct  a  conflict  pair  for  any 
transaction  wnicn  reads  or  writes  a  data  ODject  in  one 
partition  ana  tnat  same  data  ooject  is  uoaatea  in  a 
different  partition  -  tne  Interference  Edges, 

For  example,  if  transaction  11  reaas  data  ODject  a 
in  partition  I,  and  transaction  12  writes  data  ooject  a  in 
partition  II,  tnen  tne  conflict  pair  "T1T2  :  a"  must  oe 
inciudea  in  the  glODal  relation.  If  ootn  transactions  naa 
written  aata  ooject  a  tnen  eacn  control  site  wouia  insert  a 
conflict  pair  in  the  glooal  relation:  "T1T2  :  a"  and  "1211  : 
a".  This  would  easily  oe  detected  as  a  cycle  ana  either  *1 
or  T2  would  be  rolled  oack  to  a  point  wnicn  proceedea  its 
execution  on  data  ODject  a.  The  metric  whicn  nrust  ce 
present  in  conflict  pairs  snouid  oe  calculated  as  a  function 
of  the  hotk    which  each  transaction  nas  performed. 

Once  all  conflict  pairs  are  constructea  it  becomes 
convenient  to  conslaer  each  partition's  control  site  as  tne 
only  site  within  that  partition.  That  control  site  should 
nave  the  complete  set  of  conflict  histories  wnicn  *ere 
aerived   from   «itnin    its    partition   plus    tne    aaaea 
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"Interference  Edges"  and  it  snould  invoke  a  "Partition 
Concurrency  controller"  algorithm  *hicn  is  essentially  our 
implemented  procedure  "GlGBAL-aR"  (see  Appendix  3).  this 
invocation  will  cause  the  passing  ot  conflict  mstories 
bet*een  control  sices  and  tne  supsequent  aetection  of  any 
cycles,  xne  cycles  will  oe  detected  ana  eliminated  in 
exactly  tne  same  way  as  is  taking  place  at  fcotn  cata  oojects 
and  initiating  sites  when  tne  proposed  concurrency  control 
mechanism  is  insuring  seriallzaole  execution  witnln  a  fully 
connected  system. 

by  inspecting  tne  glooal  preceaence  relation,  the 
Partition  Concurrency  Controller  fmas  eitner  transactions 
involved  in  cycles  or  those  wnich  are  net.  tor  tnose 
transactions  not  part  of  a  cycle,  the  transaction  is  removed 
from  tne  relation  and  tne  values  ot  the  aata  objects  upaatea 
are  forwarded  to  tne  other  partitions  nolainq  tnat  cata 
ooject  so  tnat  these  aata  objects  can  oe  reconciled,  «nen 
the  mechanism  detects  a  cycle  it  chooses  tne  lowest  cost 
transaction  (possiDly  the  one  naving  tne  fewest  transactions 
dependent  on  it)  and  sends  the  transaction  to  a  re-execution 
list.  This  process  continues  until  there  are  no 
transactions  left  in  the  relation.  Lastly,  tne  re-execution 
list  is  emptied  by  processinq  the  transactions  present  in 
the  list. 
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4.   Partitions  Create  Long-Lived  Transactions 

Consiaer  now  the  example  presented  earlier  In 
Chapter  III,  section  b.  Assume  tnac  after  transaction  li's 
sudtransaction,  STJi,  arrives  at  site  t  ,  a  partition  occurs 
isolating  site  E  CTi's  initiating  site)  trorr,  tne  otner 
sites.  Thus,  ST31  is  unable  to  return  to  its  initiating 
site.  It  will,  as  oefore,  execute  on  data  ooject  i  and 
create  its  temporary  version  tnere,  it  will  also  remain  at 
Site  F  waiting  for  tne  partition  to  ■•merge,  wnat  nas  :een 
created  Dy  the  partition  is  actually  a  type  of  long-lived 
transaction,  mis  transaction  will  oe  automatically  handled 
Dy  the  system  because  It  creates  a  temporary  version  in  tne 
same  manner  as  do  transactions  wnicn  are  not  long-ilvea. 
The  fact  that  the  temporary  version  created  is  procaoly  more 
persistent  Cit  may  exist  for  hours,  aays  or  weefcsj  tnan  most 
other  temporary  versions  does  not  introduce  tne  need  for  any 
special  handling  of  such  long-lived  versions, 

A  transaction  wnich  is  incut  into  tne  system  ana 
wnicn  is  long-lived  sue  to  tne  transaction's  very  nature 
presents  proolems  in  a  partitioned  environment.  To  merge 
tne  partitions  it  is  necessary,  as  was  mentioned  aoove,  to 
cease  new  transaction  input  and  to  allov  all  presently 
executing  transactions  to  complete  execution.  This  may  not 
De  feasiole  for  the  long-livea  transaction  as  it  might  taxe 
wee<s  for  it  to  complete  its  execution.  This  remains  a 
proolem  which  deserves  further  investigation. 
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V.       SIMULATION    AND    TESTING    Mfcl riOPOLUGi 
A.       INTRODUCTION 

In  oroer  to  test  the  proposed  adaptive  concurrency 
control  algorithm  and  to  provide  some  meaningful 
measurements  of  its  capaoilities ,  a  simulation  of.  tr.e 
mechanism  was  implemented.  The  simulation  was  programmed  in 
u£C  VAX-11  pASCAu  and  executed  on  the  DEC  VAX  il/780  running 
under  VAX/vr«S,  Source  code  for  tne  simulation  moael  ana 
output  from  example  simulation  runs  are  provided  in 
Appendices  B  and  C  respectfully. 

The  simulation  was  designed  to  facilitate  a  onasea 
approach  for  investigation  of  the  algorithm  in  tne  areas 
addressed  in  previous  sections  of  our  tnesis.  The  first 
pnase,  wnicn  is  the  target  phase  tor  our  implementation 
effort,  is  an  initial  test  of  tne  oasic  algoritnm's  anility 
to  act  as  a  local  concurrency  controller  for  eacn  aata 
ooject  and  as  a  site  concurrency  controller  ror  one  given 
site.  Data  structures  and  processing  modules,  designed  and 
programmed  for  tnis  first  pnase  of  simulation,  "ere  designed 
in  a  manner  which  would  insure  their  extensibility  in  any 
future  phase  of  investigation. 

Future  investigation  of  the  algoritnm's  capaoiiities 
would   center   on  its  application  to  tne  partitioned  network 
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environment,  in  this  context,  the  aigorltnm  would  not  only 
act  as  a  local  and  site  concurrency  control  mechanism  out 
also  as  a  concurrency  control  mecnanism  at  partition  ,~erge 
time. 

Because  we  envision  tne  integration  or  expansion  of  our 
simulation  to  other  areas  of  interest  in  distributed  system 
software  aesign,  we  elected  to  forego  any  type  of 
proDaoiiistic  modeling  such  as  found  in  uaviason  tl5J. 
Instead,  we  opted  tor  a  more  pragmatic  approach  involving 
stanaard  aata  structures  such  as  lin<eo  lists,  arrays  ana 
recoras.  The  remainaer  of  this  chapter  elacorates  on  our 
design  and  testing  scnemes. 

O.   OAIA  STrtUCTUKtS 

1 .   Transactions 

Transactions  are  implemented  in  the  simulation 
design  as  a  linked  list  structure  pointed  to  by  a  giooal 
variaDle  (TRAN5.PTR) .  ine  structure  contains  three  entities 
of  differing  types:  transactions,  suctransactions  ana  atomic 
actions,  fcesiaing  at  tne  highest  level  in  tne  structure  is 
the  singly  linked  list  of  transactions.  Eacn  transaction  is 
unlguely  Known  oy  its  identifier:  iINIT.SITE,TKANS.NUM> , 
Witnin  each  transaction  record  field  are  Dointers  ana  fields 
wnicn  are  used  for  structure  navigation  ana  orocess 
accounting.    For  a  given  initiating  site  there  can  exist  ud 
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to  one  nunared  different  transactions.  Eacn  transaction  is 
active  in  the  structure  up  to  the  point  in  tine  *nen  it  is 
committed;  at  this  juncture,  tne  transaction  ana  any  or  its 
pointers  to  lower  level  list  are  removed  from  the  structure. 

Every  transaction  noae  Points  to  a  singly  im<ea 
list  ot  suctransactions  eacn  of  */nicn  is  identifiea  oy: 
{INIT-SITE,TRANS-NUM,ST-^UM  ,  oubtransact ions  are  tne  oaslc 
units  for  scenarios  where  tne  fomk  and  JUlfo  ooerations  are 
used.  Tne  suotransaction  noae  proviaes  tne  nead  or  tne  list 
for  its  atomic  action  string,  A  transaction  ,Tay  own  up  to 
one  hundrea  unique  suctransactions ,  Altnough 
subtransactions  are  not  autonomous  in  tnemselves,  they  can 
be  considered  the  execution  entity  in  our  scheme  as  their 
atomic  actions  must  be  processed  in  linear  oraer  as  tney 
appear  in  tne  string.  A  given  suotransaction,  on  the  other 
hand,  may  ce  executed  without  regara  to  tne  ordering  of 
suctransactions  in  a  transaction. 

Atomic  actions,  contained  in  anotner  singly  linked 
list  pointed  to  oy  tneir  suotransaction,  constitute  the  last 
and  lowest  level  in  tne  transaction  structure.  Identifiers 
for  atomic  actions  contain  four  fields: 
«INIT-SITE,TRA«5-NUM,ST-NUM,AA-NUM>  ,  Atomic  actions  contain 
all  the  information  tne  execution  process  requires  to 
simulate  transaction  execution  in  tne  system,  xne  K-«-*LD, 
DO-ID,  and  nETKIC  fields  in  tne  atomic  action  Droviae  tne 
necessary  information  to  be  aole  to  access  and  execute  at   a 
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data  ooject,  Unce  all  atomic  actions  nave  executes  for  a 
given  subtransaction  and  all  subtransactions  nave  executed 
for  a  transaction,  the  transaction's  activity  is  complete 
except  for  commit.  Uf  course  this  is  assuming  no  acort  or 
rollbaCK  occurs,  as  previously  noted,  eacn  atomic  action 
string  for  a  subtransaction  must  execute  in  the  order  in 
whicn  they  appear  in  the  string. 

2.   Conflict  Histories 

A  conflict  history,  presentea  in  cnapter  HI  as: 
£2    :    (T2T3  :    t    :  4) 

is  implemented  as  a  pair  of  noaes  in  a  linked  iist.  In  tnis 
instance,  the  first  pair  member  would  contain  information 
about  transaction  T2's  execution  at  aata  ODject  f  ana  tne 
second  pair  mernoer  v>  o  u  1  a  contain  I  3 '  s  information,  une  or 
more  pairs  in  a  list  lin<ec  oy  the  first  pair  mernoer 
constitutes  a  conflict  nlstory.  Tnese  conriict  history 
pairs  are  transformed  into  precedence  relations  Whenever  it 
is  necessary  to  ma<e  a  aetermination  re-jardiny  seriaiizaoie 
execution.  Tne  following  entities  nave  pointer  fields  for 
conflict  nistories:  transactions,  suDtransactions ,  cata 
oojects,  and  temporary  versions.  At  tne  data  ooject  and 
temporary  versions,  conflict  nistories  are  components  of  tne 
DO  Log  wnicn  provides  information  reoaroing  serializaole 
execution  to  tne  local  concurrency  controller. 
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Cn  the  other  hand,  conflict  histories  resiain?  at 
the  subtransactlon  and  transaction  are  used  to  pass 
information  from  transaction  to  transaction  ana  also  to  aata 
ODjects  visited  for  execution,  In  adaltion,  tnese  contllct 
histories  at  the  subtransactlon  ana  transaction  are  usea  to 
detect  non-serlalizacle  execution  at  the  site  level.  *nen  a 
transaction  is  requirea  to  roliDacK  part  of  its  atomic 
action  stream,  conflict  histories  are  ouruea  at  various 
Places  in  the  system  in  order  to  insure  no  "phantom"  non- 
serializable  execution  is  detected. 

3.  Data  Objects 

An  array  (DCUAhrtAY),  containing  one  nundrea  pointer 
slots,  simulates  aatabase  aata  oojects,  *hen  data  ooject  l 
is  active  at  a  site,  DG-A«RAYIU  points  to  a  record  wnich 
contains  information  aefining  that  aata  ooject.  me  recora 
also  holds  pointers  tor  the  temporary  versions,  loc<  aueue 
and  conflict  histories  present  at  tne  data  object. 
Iemporary  versions  can  reside  at  a  data  object  in  quantities 
determined  oy  tne  value  of  "n"  coded  into  tne  aata  ooject  in 
field  N..CNT,  For  any  one  simulation  run  tne  aata  ocject 
parameter  Information  Is  static. 

4.  Data  Dictionary 

Ahen  an  lnitiatinq  site  prepares  to  execute  a 
subtransaction's   atomic   action   it   must   aecide  wnere  tne 
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target  data  object  is  resident.  Tnis  information  resides  in 
an  array  ot  pointers  (DIC-ARRAY).  OICAHRAYCj]  nolas  rne 
initiating  site's  own  site  n  u  m  p  e  r  so  t  n  a  t  no  in  seance  cf  t  n  e 
simulation  execution  in  a  computer  is  oeper.dent  on  site- 
specific  code,  i.e.,  if  an  initiating  site  neeas  to  Know  wno 
it  is,  it  interrogates  its  instance  ot  DIC-ARRAX [uj .  For 
any  oata  ooject  i,  OiCARRA*  iij  contains  a  iin<ed  list 
specifying  at  whicn  site  data  object  i  is  resident.  Ail  the 
information  for  tuRK,  jJifc  and  rePiicatea  oata  is  refieccea 
in  tne  data  dictionary  array. 

G,   SIMULATION  EXECUTION 

1  •   Specifying  tne  lest  environrrent 

Before  simulation  execution  can  Deqin,  tne 
transaction,  oata  object  ana  aata  dictionary  structures  must 
exist.  Modules  nave  teen  programmed  to  proviae  tne 
structures  to  tne  simulation  from  information  input  by  tne 
user,  Tne  provision  of  these  structures  is  a  tnree  pnased 
operation. 

In  phase  one  tne  user  specifies  which  comoonents  of 
each  structure  will  oe  active  for  a  given  simulation 
scenario  and  wnat  information  will  reside  in  eacn  structure. 
Rnase  one  Is  executed  by  tne  processing  of  module  &LG06. 
Here  the  user  is  prompted  via  menus  to  provide  tne 
information   which   will   oe   used   to   construct   tne  tnree 
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structures.  Information  contained  in  atomic  actions,  aata 
ODjects  and  tne  aata  dictionary  can  oe  specified.  jnce  this 
information  is  input,  it  cannot  oe  cnangea  by  tne  user 
except  by  anotner  execution  of  bLOuS. 

Pnase  two  ta<es  the  information  providea  tnrougn  tne 
use  of  5LDDS,  whlcn  has  Deen  stored  on  tnree  tiles,  ana 
constructs  tne  tnree  pascal  data  structures.  ulDTX  duiigs 
tne  transaction,  suctransaction  ana  atomic  action  structures 
using  only  tne  data  which  was  providea  in  soecifing  tne 
aescription  or  tne  atomic  actions.  Therefore,  atomic 
actions  must  be  entered  in  sortea  oraer  in  SlDUS,  i.e., 
(1,1,1,1),  (1,1,1,2),  11,1,2,1),  (  1 ,  2  , 1 , 1 )  ,  U  ,  2  ,  i ,  2  )  , 
Cl,3, 1,1),  etc. 

3LDU0  constructs  the  data  object  structure  frorr>  tne 
information  providea  in  BLDub;  the  aata  object  numoer  ana 
tne  value  of  "n"  for  that  data  ooject,  A  value  of  u  for  "n" 
is  not  allowec  by  tne  implementation  cecause  at  tnat  value 
tne  aigoritnm  uses  a  two-pnase  loc<ing  scneme  ana  we  tiia  ^ot 
have  time  to  program  sucn  a  metnoa  into  our  simulation,  ror 
tne  construction  ot  aata  objects,  any  data  ooject  i, 
1<=I<=99,  whlcn  was  not  reauestea  oy  tne  user  in  qlouS,  is 
indicatea  by  tne  presence  of  a  nil  value  at  Du.AKrtAi [ ij . 

The  data  dictionary  structure  is  ouiit  oy  moauie 
BLDDIC.  Again,  tne  information  provided  in  rllDcs  is  usee  to 
oulld  tne  linked  list  off  array  dicarkaY.   as  was  tne  case 
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for  the  data  objects,  any   data   object   i   not   in   use   is 
represented  by  a  nil  value  at  diC-aRkA* m . 

with  tne  execution  of  Hods,  dLDTX,  bLuuu,  dLuolc 
tne  simulation  nas  all  tne  information  it  needs  to  cegin  a 
run.  One  additional  phase  of  structure  SDeclf ication  allows 
the  user  to  specify  the  addition  of  temporary  versions  and 
conflict  histories  to  tne  three  structures  built  aocve. 
This  pnase  was  included  in  tne  simulation  to  orovioe  tne 
user  with  some  degree  of  flexioility  in  the  testing  of 
simulation  modules  and  to  allow  tne  user  to  influence  tne 
simulation  scenario  in  the  areas  dealing  with  iona-iived 
transactions,  Modules  SAVChTV  and  CUNCHTV  execute  in  this 
phase. 

2.   Algorithm  Simulation  execution 

witn  the  data  structures  built  in  the  aforementioned 
routines,  tne  simulation  is  ready  for  execution.  Tne 
following  discussion  is  an  explanation  of  now  transaction 
activity  is  simulated  and  how  the  algorithm  implementation 
performs  its  functions. 

Once  control  is  passed  to  the  main  looo  of  tne 
simulation  process  (auGO.XESIJ,  a  random  selection  process 
ta<es  place  wmch  simulates  concurrent  processing  of 
suotransactions  on  a  database.  At  random,  a  transaction  and 
one  of  its  suotransactions  is  selected  for  a  set  amount  of 
processing,    we  again  note  that  atomic  actions  are  selected 
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in  the  order  in  which  tney  appear  in  a  subtransaction.  Tne 
amount  of  processing  activity  ailottea  to  a  selected  atomic 
action  is  controlled  by  steps  defined  in  a  CASc  statement 
within  module  EXECUTE,  tor  each  random  selection  ot  an 
atomic  action,  one  step  of  the  CASc  statement  is  executed 
for  that  atomic  action,  Tne  fourteen  steps  in  EXECUTE 
delineate  tne  execution  activity  for  ail  atomic  actions. 

*itnln  tne  CASE  statement  is  founa  tne  code  which 
invokes  the  modules  tnat  implement  the  adaptive  concurrency 
control  algorithm  as  a  local  concurrency  controller.  fnese 
modules  insure  that  the  atomic  action  activity  at  a  given 
data  object  is  serlaiizat le .  Local  concurrency  controller 
processes  are  cailea  whenever  an  atomic  action  has 
conflicted  witn  another  in  sucn  a  *ay  as  to  indicate  trie 
possibility  of  non-serializacle  execution.  Since  ootn  tne 
atomic  action  activity  ana  tne  implementation  of  tne 
algorithm  are  programmed  in  the  CASE  statement,  aecisions  as 
to  *hen  tne  adaptive  concurrency  control  mechanism  is  to  ce 
invo<ed  are  easily  made. 

Conflict  nistories  constructed  as  a  result  ot  atomic 
action  execution  within  the  Case  statement  Cin  tXtCUTc.)  are 
propagated  to  the  subtransaction  and  transaction  structures 
in  adaition  to  being  placed  at  tne  aata  object.  This  is 
done  to  simulate  tne  suDtransaction's  "carrying"  of  its 
conflict  nistories  during  its  travel  tnrougn  tne  system. 
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Simulation  of  tne  site  concurrency  controller  is  tne 
other  main  function  performed  in  tne  main  looo.  At  eacn 
pass  through  tne  main  loop  of  ALgO-TlST,  one  invocation  of 
EX£CUTL  and  GLQoAL_Sk  is  perforrrea.  GLObAu-or.  simply 
inspects  transactions  at  critical  junctions  of  their 
execution  and  determines  whether  or  not  ncn-ser lanzaoxe 
execution  has  occurred,  if  it  has,  seriaiizacle  execution 
is  restorea.  Naturally,  since  the  local  concurrency 
controller  and  tne  global  concurrency  controller  are  potn 
implementations  of  the  same  algorithm,  tney  utilize  the 
services  of  common  subroutines.  ror  instancy,  the 
DlTCCT.GLOoAL.sh  routine  is  invoxea  when  tne  site  controller 
is  checxing  for  non-serializaole  execution  and  *nen  an 
atomic  action  times-out  at  a  aata  object  and  is  piaceu  in 
tne  loc<  queue. 

Tne  main  loop  lnvoxes  cXlCUTl  and  GLG6AL_6n  until 
all  the  transactions  in  tne  structure  nave  committee. 
Simulation  activity  is  reflected  in  tne  output  report 
AUDIT. DAT.  Since  AUDIT. DAI  is  a  sequential  log  of  orocess 
activity  from  the  beginning  of  simulation  execution  to  tne 
commitment  of  tne  last  transaction,  tne  report  can  ce  useo 
to  audit  simulation  activity  at  critical  stages  of 
processing. 
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0.   TESTING  SCENARIOS 

A  simulation  run  can  be  tailored  to  exercise  the 
algorithm  in  various  ways.  An  explanation  ot  tne  caran-eters 
which  influence  an  execution  ana  the  possible  effect  a 
parameter  can  nave  is  tne  goal  ot  this  section. 

inrougn  tne  use  of  the  BLDUS  module  tne  user  can  control 
botn  tne  complexity  of  tne  transaction  stream  ana  tne 
conflict  rate  at  data  objects.  mat  is,  it  a  larue  amount 
of  atomic  actions  are  input  whicn  access  a  smaii  numoer  of 
data  oojects,  it  follows  tnat  tne  conflict  rate  will  ce 
high.  inen  again,  if  a  small  number  of  atomic  actions  are 
accessina  a  large  guantity  of  ctata  oojects  tne  contlict  rate 
will  be  small  and  may  well  oe  virtually  non-existent.  An 
indication  of  tne  amount  ot  synchronization  overnead 
reguired  oy  the  adaptive  concurrency  control  mecnanisf!  can 
be  obtained  Dy  Inspection  of  tne  auait  report  tor  varying 
conflict  rates. 

BLDDS  can  also  be  usea  to  set  tne  "n"  value  tor  aata 
oojects.  This  parameter,  in  conjunction  witn  the  aeiay  time 
factor,  affects  tne  freguency  and  quantity  ot  atomic  actions 
entering  tne  Iock  gueue,  uf  course,  tne  "n"  value  also 
determines  tne  numoer  ot  temporary  versions  allowed  to  oulld 
up  at  a  aata  ooject.  A  prompt  to  the  terminal  oetore 
entering  tne  main  loop  allows  the  user  to  enter  the  delay 
time   factor.    The   delay   time   is  tne  tine  allotted  to  an 
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atomic  action  before  it  times-out  waiting  for  d  snort 
duration  locx.  to  be  removed  at  a  data  object. 

Since  selection  of  atomic  actions  is  preaicstea  on  -3 
ranaom  numoer  generator,  different  seeds  to  tne  generator 
can  provide  different  simulation  results  even  it  all  otner 
test  parameters  are  held  constant.  me  seed  is  requested  dv 
a  prompt  Defore  entering  tne  main  iooo  execution. 

Tne  presence  of  long-iivea  transactions  at  a  lata  object 
is  simulated  uy  tne  construction  ana  placement  of  a 
temporary  version  at  tne  target  data  ooject.  Another  ^romct 
at  tne  Beginning  of  a  simulation  run  allows  tne  user  to 
input  temporary  versions  and  place  tnem  at  tne  desirea  data 
ODjects,  By  varying  tne  mix  of  tne  aforementioned 
parameters,  a  user  can  generate  a  wide  variety  01  simulation 
scenarios. 

Our  initial  tests  of  tne  algoritnm  involveo  the  input  of 
successively  more  complex  transaction  scnemes.  we  oeqan 
with  simple  transactions  which  could  not  possibly  conflict 
witn  each  otner  in  order  lo  insure  tne  validity  of  our 
design.  lo  test  tne  iocal  concurrency  control  mechanism,  we 
input  transactions  witn  tne  capaoliity  of  generating  simple, 
two  node  cycles  in  a  precedence  grapn.  As  #e  gained 
confidence  in  tne  simulation,  we  tried  transactions  which 
were  sure  to  conflict  both  at  Che  data  object  level  ana  at 
tne  site  level.   These  more  complex  transactions  resultec  in 
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cycles   involving   four   or   more   nodes   in   a    precedence 
relation. 
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VI.   TEST  RESULTS 

Once  tfie  simulation  was  operational,  we  were  concerned 
with  two  objectives.  First,  we  enaevoured  to  insure 
ourselves  that  tne  implementation  aia  in  fact  retiect  the 
proposed  algorltnm  in  the  areas  of  local  concurrency  control 
and  site  concurrency  control.  Seconaly,  we  *ere  interested 
in  tne  analysis  of  simulation  output  in  order  to  oe  aole  to 
maKe  some  meaningful  Judgements  on  tne  algorithm's  oenavlor 
ana  possibly  its  performance.  Our  testing  rnetnoaology , 
designed  to  meet  these  two  ocjectives,  involved  tne  setting 
of  various  simulation  parameters  crior  to  a  simulation  run 
and  then  inspecting  tne  output  audit  listing  tor  test 
results.  Appendix  C  provioes  a  sample  output  listing  rrcm 
the  AUDIT.DAT  tile  created  as  a  result  of  a  simulation 
execution. 

The  parameters  wnicn  we  were  aple  to  vary  for  any  one 
simulation  run  are  as  follows.  First,  the  complexity  of  tne 
transaction  input  stream,  i.e.,  the  quantity  of  atomic 
actions  and  the  atomic  action  execution  activity  at  any  one 
data  object.  Second,  tne  numoer  of  temporary  versions 
allowed  to  build  up  at  a  given  data  ooject.  This  parameter 
is  varied  by  changing  the  "n"  value  at  a  data  ooject  ("n"  at 
a  data  ooject  is  static  for  a  test  run  of  the  simulation). 
Third,  a   varlaole   time-out   value   for   all   data   ODjects 
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provides  trie  final  run  parameter,  snorter  delay  times 
insure  that  suotransactions  win  encounter  snort  term  ioc<s 
at  data  oojects  and,  as  a  result,  trigger  toe  aeadiocK 
detection  mecnanism. 

A.   TRANSACTION  STREAM  INPUT 

Tnrougn  tne  use  of  small  transaction  streams  wnicn 
produced  simple  cycles,  we  assured  ourselves  tnat  tne 
proposea  algorithm  performed  as  an  optimistic  concurrency 
controller  at  ootn  tne  data  object  ana  tne  initiating  site 
levels,  Tne  simple  cycles  were  detected,  atomic  9ctions 
were  rolled  sac*  and  reexecucea  ana  serializaoxe  execution 
was  restored. 

After  tnese  simple  tests  *e  allowea  more  involved 
transaction  streams  in  oraer  to  investigate  tne  algorithm's 
behavior  in  more  deptn.  we  discoverea  at  tr.is  stage  of 
testing  tnat  our  roliDacK  ana  reexecution  scheme,  following 
tne  detection  of  non-serlalizaoie  execution,  was  not 
sopnisticated  enougn  to  insure  tne  commitment  of  transaction 
streams  wnlch  generatea  complex  cycles,  mat  is,  after 
detecting  a  cycle,  our  strategy  selects  tne  least  costly 
conflict  pair  (oased  on  tne  metricj  wnicn  will  oreax  tne 
cycle.  It  then  rolls  oacic  ooth  of  tnese  atomic  actions  ana 
inserts  tne  atomic  action  wnicn  naa  executed  last  (in  tne 
pair  selected;  into  a  reexecution  list.  The  reexecution 
list  is  a  queue  whicn  will  always   insure   tnat   tne   atomic 
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actions  contained  therein  will  execute  in  tne  oraer  in  wnicn 
tney  *ere  entered,  and  without  any  intervening  execution  en 
the  part  of  other  atomic  actions.  Any  otner  atomic  actions 
not  contained  in  the  cycle  wnicn  must  oe  reexecuteo  as  a 
result  of  an  atomic  action  in  trie  cycle  oeing  rollea  cacK 
are  rolled  oac*  and  reexecuted  predicated  on  tneir  selection 
by  the  random  selection  process. 

This  strategy  is  too  siir.Dle  in  tnat  it  appears  to  ce 
necessary  to  also  insure  the  serial  execution  of  tne  otner 
transactions  wnicn  were  involved  in  tne  cycle  *nen  tne  cycle 
is  complex;  otherwise,  tne  simulation  experiences  continual 
rolloacK  and  reexecutlon  of  tne  same  atomic  actions. 
However,  we  were  ade  to  run  the  simulation  for  a  perioo  of 
time  in  order  to  demonstrate  tne  non-serializable  execution 
detection  capabilities  of  tne  algorithm.  *nen  complex 
cycles  resulted  in  continual  rolloac*  and  reexecutlon,  we 
aoorted  the  run  and  relied  on  tne  partial  output  for  test 
analysis. 

In  the  following  sections,  we  aiscuss  our  ooservations 
regarding  the  eftect  of  various  testing  parameters  lo  tne 
greatest  extent  possible,  we  neld  an  out  one  or  tne 
simulation  parameters  constant  tor  a  series  ot  simulation 
runs  and  ooserved  the  cnanges  the  one  parameter  produced  in 
the  output.  In  addition,  we  provide  comments  on  our 
experiences  with  the  proliferation  ot  conflict  nistories 
tnrougnout  system  data  structures. 
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B.   TIME-OUT  PARAMETER 

Trie  time-out  parameter  determines  now  long  a  transaction 
waits  for  tne  completion  of  a  transaction  executing  at  a 
data  Object  before  tne  waiting  atomic  action  enters  tne  iock 
queue,  Tnis  oarameter  provea  to  be  of  great  consequence 
during  testing,  When  very  short  delay  times  ^ere  usea, 
subtransactions  would  be  inserted  into  tne  Iock  queue  at  a 
fast  rate.  Once  in  the  Iock  queue,  tne  aigoritnm  requires 
suotransactions  to  Dass  conflict  histories,  wnich  reflect 
tne  conflict  conaitions  at  tne  oata  object,  to  tne 
transaction  level.  Transactions  *nlcn  appear  in  tnese 
conflict  nistories  tnen  pass  conflict  nistories  among 
themselves,  what  is  important  in  tnis  scenario  is  that  tne 
tnis  sequence  cf  events  provides  tne  site  concurrency 
controller  wltn  a  nigh  conflict  rate  and  as  a  result,  a  high 
prooaollity  of  having  to  nanqle  fairly  complex  cycles 
lnvolvinq  possiDly  many  transactions. 

The  eno  result  is  a  nlgn  rolloacK  rate  «nicn  couli 
easily  involve  all  the  atomic  actions  wnlcn  nave  executea  uo 
to  that  point,  under  these  conditions,  and  because  our 
simulation  uses  a  simple  rolloacK  and  reexecution  strategy, 
the  simulation  process  experiences  a  continual  cycle  of 
rolloacK  and  reexecution  with  only  a  small  cnance  tnat 
transactions  will  De  alloweq  to  commit.  From  test 
observations   it   was  evident  that  this  situation  gets  worse 
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as  more  atomic  actions   are   forced  into   tne   loc<   queue. 

Therefore,  longer  transaction  input  streams  with  many  ato-nic 

actions  addressing  a   small   number  ot   data   ocjects   will 

continually  undergo  a  repetition  or  rolloacK  ana  reexecution 
without  corrmits. 

C.   THE  "n"  PAKAHETEK 

Since  the  "n"  parameter  determines  ho*  many  temporary 
versions  are  allowed  to  reside  at  a  data  ooject,  it  also 
contrioutes  to  tne  problems  ODserved  wnen  snort  oelay  times 
were  used.  The  rate  at  wnlch  suotransactions  enter  tne  lock 
queue  is  accelerated  when  tne  "n"  parameter  is  small  it  is 
Obvious  that  the  t*o  parameters  "  n »'  and  tne  delay  time, 
together,  affect  the  rate  at  which  a  Iock  queue  is  filled. 
To  Detter  understand  what  effect  "n"  ano  tne  delay  tactor 
nave  on  orocessinq,  we  tested  witn  a  fairly  long  and  complex 
transaction  stream  and  varied  "nH  and  tne  delay.  The 
results  were  very  interesting. 

when  "  n  M  was  set  low  (values  on  the  order  ot  l  or  2) 
with  a  snort  delay  time  (values  ot  1,2,  J ) ,  tne  site 
controller  was  unable  to  find  a  seauence  of  roilDacxs  and 
reexecutions  wnich  would  commit  tne  transactions.  we 
ooserved  longer  cycles  involving  more  transactions  which 
necessitated  tne  rollback,  time  and  again,  of  all  atomic 
actions,  with  a  large  "n"  value  and  a  long  oelay  time  tne 
same   transactions   committed  in  a  snort  period  of  time.   in 
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this  case,  inspection  of  tne  audit  listing  snored  tnat  tne 
local  concurrency  controller  and  tne  site  concurrency 
controller  nad  to  contend  with  snorter  cycles  anu  that  re*er 
transactions  were  involved  in  the  cycles.  A  long  ueiay  time 
and  "n"  set  high  seems  to  result  in  a  lower  conrlict  rate 
tor  the  local  concurrency  controller  wnicn  ma<es  it  easier 
for  tne  algoritnm  to  find  a  serializaoie  execution  sequence. 
With  a  more  sophisticated  rollback  and  reexecutlon  strategy 
we  feel  tnat  tne  algoritnm  wouio  oe  acle  to  contend  with 
these  nign  conflict  rates  caused  oy  suctransactions  enterlna 
the  locK  queue.  Lit  course,  this  can  also  oe  controlled  r.y 
the  proper  selection  of  tne  two  parameters ♦ 

while  attempting  to  find  a  comcination  of  small  "n"  ana 
snort  delay  times  wnicn  would  still  commit  tne  transactions 
we  ooservea  longer  ana  longer  execution  times  for  tne 
simulation  runs.  This  is  understanaacie  since  tne  conflict 
rate  and  tne  complexity  of  cycles  arives  tne  rolioacK  and 
reexecutlon  process. 

D,   CONCURRENCY  CONXKOL  QVEHhEAD 

It  has  oeen  argued  that  under  optimistic  concurrency 
control  the  overnead  associatea  witn  nonconf lictina 
transaction  synchronization  is  low  and  tnat  tnere  is 
potentially  hign  overneaa  for  conflicting  transactions  and 
restoration  of  serializade  execution,  our  observations  on 
tne  performance  of  the  proposed  algoritnm  Dear  this  argument 
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out.  For  noncontlicting  transactions  tne  only  algoritnm 
activity  ooservea  was  tne  construction  of  temnorary  versions 
and  tne  commitment  of  transactions.  with  conflicting 
transactions  tne  algoritnm  performed  a  great  aeai  of  ivorx  in 
the  areas  of  construction  of  conflict  histories,  detection 
of  cycles,  propagation  of  conflict  histories,  detection  of 
non-serializacle  execution,  ana  tne  restoration  of 
serializaole  execution. 

Cf  great  concern  to  us  during  tne  implementation  and 
testing  of  tne  algoritnm  was  the  amount  of  processing 
required  to  deal  *itn  tne  conflict:  nistories.  Conflict 
histories  are  propagated  to  data  structures  in  a  numoer  or 
*ays,  *hen  suotransactions  fork  througn  the  system  they 
deposit  and  collect  conflict  nistories  at  data  objects. 
Transactions  excnange  conrlict  nistories  ouring  aeaaiocK 
detection  ano  during  site  concurrency  controller  activity. 
Ine  housekeeping  of  tnese  conflict  nistories  during  tne 
rollback  and  commit  processes  prove  to  be  quite  expensive. 
tvery  instance  of  a  conflict  nistory  pair  wnicn  was  created 
oy  tne  execution  of  an  atomic  action  had  to  be  tracxea  ao*n 
tnrougnout  tne  system  wnenever  the  atomic  action  »as  roiisa 
oacx.  It  was  also  necessary  to  purge  the  system  or  conriict 
nistories  related  to  a  transaction  wnen  tnat  transaction 
committed,  without  this  purge  process  false  information  was 
introduced  into  precedence  relations  which  resulted  in 
erroneous   cycles  oeing  detected,   Tnis  is  understandably  an 
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untenable  situation,  further  investiaatlon  into  cms  aspect 
of  the  algorithm  is  necessary  to  reaace  the  overnead 
introduced  oy  the  propagation  of  tne  conflict  histories. 
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VII,   CONCLUSIONS 

In  this  thesis  we  nave  investigated  three  related  topics 
of  current  interest  in  tne  tield  of  distributed  computer 
systems  software:  optimistic  concurrency  control, 
partitioned  networ<s,  and  long-lived  transactions, 

a  previously  proposed  optimistic  concurrency  control 
algorithm  was  implemented  and  tested.  Tne  test  results  of 
the  algorithm  and  our  implementation  of  it  nave  oeen 
discussed  acove  CCnapter  v  i }  .  *  e  present  nere  our 
conclusions  on  tne  feasioility  ana  practicality  of  tne 
algorithm, 

Xnougn  it  is  understood  tnat  any  *orXaoie  "optimistic" 
concurrency  controller  needs  to  oertorm  well  during  oerioos 
of  low /no  conflict,  it  is  still  necessary  for  it  to  function 
in  a  reasonaDle  manner  if  tne  conflict  rate  is  hiqn,  it  tne 
transaction  stream  wnicn  is  input  into  our  simulation  is 
sucn  tnat  the  conflict  rate  is  mgn  ana  cycies  of  lenatn 
greater  than  tnree  are  present,  then  our  implementation  of 
the  algorithm  often  *ill  not  worK,  «nile  this  was  discussed 
aoove  in  Chapter  /I,  we  want  to  empnasize  nere  tnat  tne 
problem  appears  to  reside  not  in  tne  algorithm  itseit,  but 
in  our  implementation  of  it.  l'nis  needs  to  oe  verified  and 
is  out  one  of  many  places  wnere  turtner  investigation  is 
required,    we   do   believe   tnat   tnis    proolem    is    not 
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lnsurmountaole  and  that  a  more  sopnistlcated  auorodcr,  to 
selecting  wnicn  transaction  to  rollbacx  and  re-execute  *nen 
breaking  a  cycle  is  a  likely  solution. 

Of  greater  concern,  because  it  deals  more  closelv  *itn 
tne  actual  algoritnm  as  opposed  to  our  implementation,  is 
tne  prODlem  of  eliminating  conflict  nistory  pairs  wnicn  are 
no  longer  valid.  That  is,  wnen  a  rolioacx  occurs  Cor  a 
transaction  commits)  it  is  imperative  to  remove  from  tne 
system  tne  conflict  pairs  which  reflect  tne  conflicts  wnich 
are  no  longer  oresent.  This  is  not  trivial  to  accomplish 
without  a  lot  of  wasted  effort  because  tne  nairs  to  oe 
removed  may  nave  been  propagated  extensively  to  otner 
transactions,  data  oojects,  ana  temporary  versions.  in  our 
simulation,  w  n  i  c  n  is  of  a  small  system  w  i  t  n  few  aata 
objects,  it  was  possiDle  to  simply  loo<  everyvnere  for  tne 
conflict  pairs  wnich  needed  to  oe  purged,  mis  would, 
however,  not  be  feasible  in  a  real  system.  «e  none  tnat 
further  investigation  of  this  problem  *ould  reveal  a  method 
for  Keeping  track  of  where  tne  conflict  nistories  are 
propagated,  tnus  enaolmg  a  much  more  efricient  scneme  for 
purging  tnem. 

Next,  we  consioerea  how  tne  concurrency  control 
algorithm  would  handle  a  specific  class  of  transactions, 
called  "long-lived",  which  presents  systems  with  some  unique 
proolems,  it  appears  that  our  aioorithm  may  be  aole  to  deal 
witn  long-lived  transactions  because  tne   temporary   version 
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mechanism  causes  long-lived  transactions  to  c?. 
indistinguishable  from  otner  transactions,  ire  aigoritnm 
can  also  present  a  more  realistic  view  to  the  user  a3  to  tne 
status  (whether  or  not  it  is  committed/permanent)  ot  any 
long-lived  transactions  which  might  nave  Qeen    input. 

The  third  topic  which  was  investigatea  was  tnat  of 
partitioned  networks  within  a  aistrlDuted  aataoase  system. 
Our  algorithm  also  seems  to  be  naturally  extensiole  to  tne 
partitioned  environment  since  tne  mecnanisms  required  for 
detecting  ana  resolving  cycles  ana  nonser ializability  are 
already  present.  Thus,  extension  ot  tne  alqontnm  to  enaoie 
it  to  nanale  a  partition  merge  should  oe  tairly 
straigntf orward,  fnis  is  certainly  yet  anotner  area  where 
further  wor<  could  be  accomplished  -  tne  actual 
Implementation  of  the  extenaea  algorithm  to  enaoie  its 
operation  in  partitioned  systems,  Additionally ,  tnere  is  a 
need  for  further  research  into  tne  problem  of  now  to  aeai 
with  long-lived  transactions  which  are  oresent  in  a  system 
which  oecomes  partitioned. 
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APPENDIX  A 
TH£  PROPOSED  ALGORITHM 

The  three  pnases  of  the  proposed  adaptive  optimistic 
concurrency  control  algorithm  are  aescrioea  below,  Tne 
first  phase  addresses  tne  execution  of  transactions  ac  a 
data  ooject.  Detection  of  ncn-seriaiizaole  execution  is  tne 
ODjectlve  of  tne  secona  phase  ana  tne  tnira  phase  aeals  with 
tne  commitment  or  transactions. 

Execution  Fnase: 
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new  version  as  t(r) 


ELSE 

mark 
E.^D  IF 
ELSE 

upaate  conflict  nistory 
mar*  new  version  as  t(w) 
END  li 
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receive  conflict  nistories  THEN 

send  message  to  initiating  site  of  conflictinq 
transaction  saying  'trans  committed' 
D  IF 
ter  commit  pnase 

R  eacn  transaction  in  conflict  nistory  DO 
send  copy  of  conflict  nistory  to  initiating  site  ot 
eacn  transaction 
D  FOR 

R  each  conflict  nlstory/preceaence  relation  receivea 
construct  precedence  relation 

IF  precedence  relation  snows  non-sr  execution  IHEN 
restore  serializacle  execution 

IF  transactions  still  executing  THEN 


uO 
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select  least  costly  transaction  pair  from 
among  transactions  that  are  still  executing 
ELSE 

select  least  costly  transaction  pair 
END  IF 

transactions  In  selected  transaction  oair  roll 
bac<  to  site  of  conflict  ana  execute  in 
opposite  order 
update  conflict  history 
IF  read/update  based  on  temporary  version  then 

rnarx  new"  version  as  t(w) 
ELSE 

mar*  new  version  as  t(rD 
END  IF 
ELSE 

send  precedence  relation  to  initiating  site  of 
transaction  adaed  to  oreceaence  relation 
END  IF 
END  FOR 
IF  receive  'trans  committed'  message  THEN 

pass  tnis  message  to  initiating  site  from  wmcn 
received  most  recent  precedence  relation 
END  IF 
IF  transaction  completea  THcN 

enter  commit  pnase 
ELSE 

continue  witn  execution  pnase 
END  IF 
END  IF 


Commit  Pnase: 

IF  all  temporary  versions  are  t(r)  THEN 

send  commit  message  to  all  sites  at  which 
transaction  executed 
ELSE 

FOR  each  t(«)  version  DC 

IF  t(w)  site  reDorts  'aoort*  ThEN 
roll  dsck  to  site  of  abort 
re-execute  remainder  of  subtransaction 
enter  detect  non-sr  execution  pnase 
ELSE 

IF  all  t(w)  versions  report  'ready  to  commit'  then 
send  commit  message  to  all  sites  at  *mch 
transaction  executed 
END  IF 
END  IF 
END  FOR 
END  IF 
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Note  that  the  "coinnr.it  message"  not  only  changes  the 
status  of  the  Du  Log  to  committed,  out  it  also  removes  ior.c; 
duration  Iocks, 
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APPtNQlX  b 

SIMULATION  5CUHCE  CuOt 


(J*********************************************************) 

C*  type  declarations  tor  simulation  modules  *) 
(*  contained  in  file  "strtype.pas"  *) 

(*  pointer  types  *) 

(********************^*************;(^******************;f**) 

otr.cn. pair   =  Acri.pair.rect; 
ptr-trans    =    "trans. rect; 
ptr.strans   =*strans.rect ; 
ptr.dic   =    •aicrecc; 
ptr.aa   =    *aa«rect; 
ptr.tv   =   "tv.rect; 
ptr.loc*.q   =*iocK.o.rect ; 
ptr.ao.perm   =    *do.perm.rect ; 
ptr-cn   =   "cn.rect; 
otr.reexec   =    ~re.exec.rect ; 

(*****************************************************¥****J 
(f*****************;^*********^***************************) 

(*  record  tyces  *) 

(»***^***ii****^*«***» ***********»*****+***»****** **********) 

re.exec.rect  =  record 

init.site  :  cnar; 

trans. num  :  integer; 

st.nutr.    :  "  integer; 

aa.num    :  integer; 

do. id     :  integer; 

nxt      :  ptr.reexec; 
end; 

(*************^*****************************»**** **********) 
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do.perm.rect  =  record 

cn.ptr  :  ptr.cn; 

tv.ptr  :  ptr.tv; 

locx.o.ptr  :  ptr.lock.g; 

no. reads  :  integer; 

no. writes  :  integer; 

lock  :  oooiean; 

n.cnt  :  integer; 

s.cnt  :  integer; 

locK.qty  :  integer; 

cn.seq  ;  integer; 
end; 


**4*****4*****  +  ****************4****1*****4**4***1.1.**4i***4) 


tv.rect  =  record 

tv.cn.ptr  :  ptr.cn; 
aa.id  :  record 
trans. site  ; 
init.site 
trans. num. 
end; 

st. num  :  integer; 
aa. num  :  integer; 
r.w.f lg" :  cnar ; 
ao. ia  :  integer; 
cn.seq  2  integer; 
metric  :  integer; 
end; 

metric. sum  :  integer; 
nxt  :  ptr.tv; 
stat.fid  :  cnar; 
end; 


record 
:  cnar; 
;  integer; 


I**********************************************************) 


aa. rect  =  record 
aa.id  :  record 

trans-site  : 
init.site 
trans.num 

end; 

st.num  :  integer; 

aa.num  :  integer; 

r.w.f lg "  :  cnar; 

do. id  :  Integer; 

cn.seq  :  Integer; 

metric  :  integer; 
end; 

stat  :  cnar; 
time.val  :  integer; 


record 
;  cnar; 
:  integer; 
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step. num  :  integer; 
have. Iock  :  ooolean; 
in.locKq.flg  :  ooolean; 
nxt  :  ptr.aa; 
end; 

strans.rect  =  record 

aa.ptr  :  ptr.aa; 

st.ia  :  integer; 

aa. aty  :  integer; 

aa.tr. qty  :  integer; 

aa. fin. qty  :  integer; 

exec-fig  :  ooolean; 

for*. fig  :  boolean; 

st.cn.ptr  ;  ptr-cn; 

metric-sum  :  integer; 

nxt  :  ptr.strans 
end; 

trans.rect  =  record 

st.ptr  :  ptr.strans; 

st.qty  :  integer; 

exec. fig  :  ooolean; 

st.tr. qty  :, integer; 

st-f in. qty " :  integer; 

trans. site  :  recora 
inlt.site  :  char; 
trans. num  :  integer; 

end; 

nxt  :  ptr. trans; 

trans. ch. ptr  :  ptr.cn; 
end; 

(^♦♦*****#******* ****************************** ************) 

ch.rect  =  record 
nxt  :  Dtr.cn; 
pair.ptr  :  ptr.ch.palr; 
aa. id  ;  recora 

trans-site  :  record 
init.site  :  cnar; 
trans. num  :  integer; 
end; 

st. num  ;  integer; 
aa.num  :  integer; 
r.w.f lg~ :  cnar; 
do. la  :  Integer; 
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cn.seq  :  integer; 
metric  :  integer; 
end; 


(**********************  ***m***  *****************  **********) 

cn.pair.rect  =  record 
metric. sum  :  integer; 
aa. id  :  record 

trans-site  :  record 
inlt.site  :  cnar? 
trans. num  :  integer; 
end; 

st.num  :  integer; 
aa. num  :  integer; 
r.x.flg  :  cnar; 
do. id  :  integer; 
cn.seq  :  integer; 
metric  :  integer; 
end; 
end; 

(*******************************************************■***) 

locK.q.rect  s  record 
nxt  ;  ptr.iocK.o; 
locx.ch.ptr  :  ptr-cn; 
aa. ia  :  record 

trans. site  :  record 
inlt.site  ;  cnar; 
trans. num  :  integer; 
end; 

st.num  s  integer; 
aa.num  :  integer; 
r.w.flg  :  cnar; 
ao.ia  j  integer; 
cn.seq  :  integer; 
metric  :  integer; 
end; 
end; 

t**************  ************  ********************************•) 

dic.rect  =  record 

nxt  :  ptr.dic; 

site. id  :  cnar; 
end; 

(**********************************************************) 
(**********************************************************•) 
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(*  array  types  *) 

{************************************************** ********^ 

data. od.1. array  =  array  CI . .59]  of  ptr-ao-perrn; 
aata- die. array  =  array [0. ,9*]  ot  ptr-aic; 

I********************************************************** ) 
{********************************************** ************^ 
(^****i************************** *************************** ^ 

I**********************************************************) 

(*  variable  declarations  tor  simulation  moauies  *] 
(*  contained  in  tile  "strvar.pas"  *) 

(******************************************************  ****•) 
i*********************************** ***********************) 

C*  pointer  variables  *) 

^******************************* ***********  ************.****) 

trans. ptr  :  ptr-trans; 
reexec-ptr  :  ptr-reexec; 

I************************ **************************** ******) 

I**********************************************************) 

C*  array  variables  *) 

f^***********  ***************************  ************** ******) 

do-array  :  data.oD j. array ; 
die-array  :  data-aic-array; 

^****^**********  *******  *************************  ************) 
(**********************************************************) 

(*  record  variables  * ) 

^ ***********************************************  ***********) 

re-exec-rec  :  re-exec-rect ; 
tv-rec  :  tv-rect; 
aa-rec  :  aa-rect; 
strans.rec  :  strans-rect; 
trans-rec  :  trans. rect; 
cn-rec  :  cn-rect; 
cn-pair-rec  :  cn-pair-rect; 
loc<-q»rec  :  iock-o-rect; 
dic-rec  :  dic-rect; 
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(*  file  declarations  *) 

trans  :  file  of  aa.rect; 

audit,  data,  aatadic,  dooj,  runfixe  :  text; 

{**********************************************************) 

PROGRAM  bldds  ( input , output ,  trans  ,  aataaic  , aoDii ) ; 

C*  this  ouilds  tne  data  structures  for  aioo_test  *j 

TYPE 

%INCLuDE  'strtype.pas  /nolisf 

VAR 

^INCLUDE  'strvar.pas  /nolist' 

en  :  cnar; 

ans^a  : integer; 

correct ,stoprun  :  boolean; 

l***t ******************************************* ***********) 

(*************************************  ***********  **********) 

PROCEDURE  read. integer  (VAR  rum  :inteqerj; 

(*  mis  reaas  an  integer  from  tne  terminal  in  cnar  format 
and  edits  it  tor  type.   It  loops  error  msgs  until  a  legal 
integer  is  input.  *) 


goodset  =  t'O". .  'y'J ; 


CONST 
go 
maxlntdig  =  lu; 

VAR 

line  :  array  L l • , dO j  of  cnar; 
index, lengtn  :  integer; 
good. answer  :" boolean; 

BEGIN 

gooa. answer  :=  false; 
inHILE  not  good-answer  DO 
3EGIN 

index  :=  l; 
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READ(line(. index.)) ; 

WHILE  notCllneC, index. )  =  '  ')  and  not  eoln 
and  (index  <  nr.axintdig)  DO 
BEGIfl 

index  :=  index  *  1; 
RtADCllneC. Index.) ) 
END? 
READLN; 

lengtn  :=  index; 
good. answer  := 

"(index  >  1)  or  not (lineC , lnaex. )  =  '  '); 
FOR  inoex  :=  l  TO  lengtn  DO 
good. answer  := 

good. answer  and  ( lineC . index, )  in  ^ooaset); 
IF  not  good. answer  THEN 
fcEGIh 

FOR  index  :=  l  ro  lengtn  uO 

wRHECiine(. index.)); 
WRlTELN('is  not  an  integer'); 
WRITELNC  'please  input  again') 
END 

end;   (*wniie«j 
n  u  m  :  =  0 ; 

FOR  index  :=  1  10  lengtn  DC 

nam  ;=  nu.T  *  lu  ♦  (orddineC .  index. ))  -ora  ( '0' )  j 
END;   (*proc*) 

(**********************************************************) 
(************ ******  ********** ******************* ***********) 

procedure  write. query  (VAR  ans  :  integer); 

BEGIN   (*wq*) 

wRITELN('tnls  proc  ouilds  new  files  for  testacc*); 

wRITELNC 'wnat  do  you  want  to  cnange?'); 

wRIIELN; 

*RIT£LN('l  :  atomic  action  file'); 

WRIT£L*('2  :  data  dictionary'); 

*RIT£LN('3  :  aata  ocject  file'); 

*RITEL.\(#4  :  notning'); 

•RITELN; 

*RITE( 'respond  witn  single  oigit===>' ) ; 

read.integer (ans) ; 
END;   (*wq*) 

(**********************************************************) 
(**********************************************************) 

PROCEDURE  cnecK.stop  (VAR  stoprun  :  Doolean; 

en  :  cr.ar); 
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BEGIN   l*cnec)c.stop*) 

It  not  Ccn  in  C'y%T,'n','N'])  XH£N 

en  :=  'z'; 
case  ch  of 

'n',*N'  :  stoprun  :=true; 
'y','¥'  :  stoprun  :=  false; 
'z'     :  wRUELnC  'error  try  again'); 
END;   (*case*) 
end;   c*cneck-stop*) 

(ft***********?************  *****************  ***************  ) 
(*********************************************************¥) 

PROCEDURE  const. trans; 

C*  tnls  proc  Builds  tne  trans  file  dis<  from  interactive 
input  *) 

var 

stoprun, correct  :  cooiean; 
tempi. aa, temp^. aa  :  aa.rect; 
in.lnt  :  integer; 
outcn,in.cnar,cn  :  cnar; 

BEGIN   (*cti») 

stoprun  :=  false; 

wITH  tempi. aa.aa. id  .  trans. site  wG 
BEGIN   C*v»ith*') 

init.site  ;  =  '0'; 
trans. nura  :=  0; 
L^Dj      C*witn») 
WITH  tempi. aa.aa-id  DO 
BEGIN 

st.num  ;=  0; 
aa.num  :  =  0; 
r.w.fig":=  '  '; 
do. id  :=  u; 
cn.seq  :=  o; 
metric  :=  0; 
ENO;   C*witn*) 
WITH  tempi. aa  DO 
BEGIN 

stat  :='x'; 
tlme.vai  :=  -l; 
step.num  :=  u; 
nave.loc<  :=  false; 
in.locKq.tlg  ;=  false; 
nxt  :=  nil; 
END;   (*witn*) 
temp2-aa  :=  tempi. aa; 
RE*aiTECtrans) ; 
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for    file*) 
nufiiDer    integer"); 


REPEAT   (*until  stoprun  =  true*) 

wRITELNCyou  are  entering  an  atomic  action'); 

wrITELn; 

wRITELNCtne  last  aa  you  entered  was'); 

wRITELN; 

*ITH  tempi. aa.aa. id. trans. site  du 

*RITt(init.site  :i,trans-num  :3); 
wITn  tempi. aa.aa. id  DO 

wR!TE(st.num    :3,aa.num    :3,ao.id    ;3, metric    :3); 
wRiTELN(templ_aa, time.val    :3); 
WRlTELNCenter    the   new    init-site    integer'); 
REAOLN(Ch) ; 

wHILE  not  (en  in  C '0 ' , ' 1 ' ,  '2  '  ,  '  3  ' ,  '4  ' ,  '5  ' , 

'6*,*7*,*8',*9'J)  DO 
BEGIN 

waiTELNC 'error  try  again'); 
READLN(cn) 
END; 
WITH  temp2-.aa.aa. id.  trans. site  DU 
BEGIN 

init.site  :=  ch; 
(♦converts  mit  site  to  char 
wRIIfc.LN(  'enter  tne  new  trans 
read. integer ( trans. num) ; 
END;   (*with*) 
wITri  temp2. aa.aa. id  DO 
BEGIN 

wRITELi\(  'enter  new  subtrans 

read. integerCst.n urn); 

wxiTEL»\( 'enter  new  atomic  action  num  integer'); 

read.integer (aa.num) ; 

wRITELN  ( 'enter  new  aata  object  num  inteqer'); 

read.integer(dc.id); 

WRlTELNCenter  new  metric  integer'); 

read.integerC metric); 

wriilln  ( 'enter  r  for  react  or  w  for  write'); 

PEADLiv(cn) ; 

while  not  ccn  in  i'r','*'])  uo 

BEGIN 

wRiTELN ( 'error  try  again'); 
KEADLN(cn) 
end; 
r.w.tig  :  =  en; 
cn.seq  :=  u; 
END;   (*witn*) 
wITH  temp2.aa  DO 
BEGIN 

time.val  :=  -1; 
outcn  :=  'x'; 
stat  :=  'x'; 
step. num  :=  0; 


numcer  integer'); 
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nave-lock:  :s  false; 

ih-locKq-flg  :=  false; 

nxt  :=  nil; 
end;   c**itn*) 
aRITEC trans  ,  temp2-aa} ; 
templ-aa  :=  temp2-aa; 

*RITELN(  'enter  y  or  n  If  you  *ant  to  enter  another  aa'); 
RfiADLNCcn); 

cnec)<-stoP(stoprun,cn); 
UN Tib  stoprun; 

(*tne  last  aa  on  tne  file  is  a  trans-num  *99  record*) 
temp2-aa.aa-ia.  trans-site,  trans-niim  :=  999; 
*RITE(trans,temp2-aa); 
END?   C*Ctl») 

PROCEDURE  const-aata-oic; 

C*  tnis  proc  builds  tne  data  dictionary  aisK  file  from 
interactive  input  *) 

VAR 

stoprun, stopsice  :  ooolean; 
cased, curd  :  ctr-dic; 
en, 1 nit-site  :  cnar; 
acnum,  in.mt  :  integer; 
aic  :  text; 

BEGIN   (*!*) 

REWRiTE(datadlc) ; 
stoprun  :=  false; 
aonum  :=  l; 

rtRiTLLNC 'enter  tnis  sites  nuaioer-integer ' ) ; 
rttADuN(init-site) ; 
*r IT£L»u  da tadic, in  it-site) ; 
REPEAT  ~(*until  stoprun  =  true*) 
stocsite  :=  false; 
REPEAT   i*until  stopsite  =  true*) 

*RITELN( 'note  ;  enter  a  9  if  aata  item  not  usea', 

"'  at  all'); 
wRITELNC  'enter  a  site  tor  data  item   ',aonutn  :  2); 
readlnC in it-site) ; 
WKlTtLN(dataalc,init-site); 
It    init-site  <>  '9'  ThEn 
BEGIN   C*7*) 

HKITELN( 'another  site  tor  data  item   ', 
"donum  :  2,'i'); 


8b 


UNT 


*HIT EL N ('answer  y  or  n'); 
READLN(cn) ; 

checK-s top (stopsite, en) ; 
END   (*7*) 
ELSE 

stopsite  :=  true; 
until  stopsite; 
donum  s=  donum  +  1; 
*RITLLN(aataaic,'x'); 
wRITELN C 'continue  witn  data  item 
WRITELN( 'answer  y  or  n'); 
READLN(cn) ; 

cneck.stop(stoprun,cn); 
IL  stoprun; 


a  o  n  u  it. 


lt 


r»  -)   t> 


u 


end; 


PROCEDURE  const. do; 

(*  this  builds  tne  data  object  tile  from  interactive 
input  *) 

VAR 

i,in.int  :integer; 
stoprun  :  poolean; 
ch  :  cnar; 

BEGIN   (*1») 
i  :=  1; 

stoprun  :=  false; 

REWRITE  (dODj); 

REPEAT    (*until  stoprun  =  true*) 

wRITELNC 'enter  tne  n  value  for  data  object   r,i  :  2); 

read.integeriin.int) ; 

wRITELNCaODJ ,in-int); 

*RITELN  (  'answer  y  or  n  if  more  do.s  to  enter'); 

READLN(cn) ; 

cnectc.stopc  stoprun,  ch); 

i  :=  i  +  l; 
UNTIL  stoprun; 
END;   (*l*) 

(f**^***;*****************:^***^**************************) 

(*  main  for  program  olads  *) 

bEGIN   (*1*) 

REPEAT   (*untll  stoprun*) 
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correct:=  false; 
a  :  =  l  ; 

WHILE  correct  a  false  Da 
BEGIN   C*2») 

write. query  Cans) ; 
IF  Cans  in  U,2,3,4J)  THEN 
correct  :=  true; 
END;   (*2*) 
case  ans  of 

1  :  BEGIN 

const. trans ; 
trans. ptr  :=  nil; 
END; 

2  :  const. data.aic; 

3  :  const. do; 

4  :  a  :  =  a  *  l ; 
END;   (*case*) 

aRITELNC 'more  changes?  answer  y  or  n'); 
READLNCcn) ; 

cnec<.stoolstoprun,ch)? 
until  stoprun; 
END,   C*l*) 

(*»f**^«***f»***********»»****  ********************  *****•***¥) 
(*******4^****«*******************4c*****4*«*«  *****?*«***?**) 
(W«^«y^^yvyy***V**f^***V****************<*****************) 

[INHERIT  C'sysSllDrary;starlet'),ENViRUN*ENr  ( 'builds,  pen  *  j  J 

MODULE  B  ( input , output , audit ,data,run£ lie , trans ,dataaic , 
doDj ) ; 

C*  tnis  rnoaule  creates  tne  glooai  procedures  *j 

TYPE 

%INCLUDE  'strtyDe,Das  /nolist' 


VAR 


%INCLUDE  'strvar.pas  /nolist' 


^ ***»******************************************************) 

(if*********************************************************) 

[GLOBAL] 

PROCEDURE  bldtx; 

C*  tnis  proc  Duilds  tne  trans  structure  from  tne  recora  tile 
trans.dat  *) 


fab 


VAR 

baset,curt  :  ptr-trans; 
curst, basest  ;  ptr-strans; 

curaa,oaseaa  :  ptr-aa; 
ternpaa,  tempaa^  :  aa-rect; 

(I*********************************************************) 

PROCEDURE  aadt  (curt  :  ptr-trans; 

ternpaa  :  aa-rect); 

C*  fill  one  trans  record  «ith  aata  *) 

BEGIN   C*aadt*) 

curt*.st-qty  :=  0; 

curt* ,exec„f Ig  :=  false; 

curt*,st.tr-qty  :  =  o; 

curt*. st. f in-qty  :=  0; 

curt*. trans-cn-ptr  :=  nil; 

curt*. trans. site. init-site  ;= 

terr.paa.aa- id, trans-site, init. site; 

curt* .trans-site. trans-num  := 

tempaa.aa-ia.trans-site. trans -num; 

curf.nxt    :=   nil; 
END;    C*adat*) 

I**************************************** ************ ***+**) 

PROCEDURE  aaast  tcurst  :  ptr-strans; 

'  ternpaa  :  aa-rect ) ; 

C*  fill  one  suotrans  record  witn  aata  *) 

BEGIN   (*aaast*) 

curst*. st-la  :=  tempaa. aa-id.st-num; 

curst*. aa.qty " :=  u; 

curst*. aa-tr-qty  :=  0; 

curst* .aa-fln-qty " :=  u; 

curst*. exec-fig  :=  false; 

curst*. f oric-f ig    :=      false; 

curst*. st-cn-ptr    :=   nil; 

curst*. nxt    :=   nil; 
END;      (*addst*j 

I**********************************************************) 

PROCEDURE   adaaa    icuraa    :    ptr-aa; 

'ternpaa    :    aa-rect); 

(*  fill  one  atomic  action  recora  <vitn  aata  *) 
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BEGIN   (»aadaa») 

curaa~.aa.ia  :=  tempaa. aa«ia; 

curaa*. stat  :=  tempaa, stat ; 

curaa*, time»val  :=  tempaa.tlme-.val; 

curaa*. stap-.num  :=  0; 

curaa*. have-lock  :=  raise; 

curaa*. ln-locxq-fiq  ;  =  false; 

curaa*. nxt  :=  nil; 
END;   "(*addaa*) 


(*main 
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tempaa) ; 
tempaa; 

=curt; 
rt; 
empaa) ; 

urst; 

, tempaa) ; 

y  :=  curt 


. st-qty  ♦  l; 


uraa 
,  tern 
ty  : 
st-p 
tr  : 
temp 
of  ( 
*2*j 
mpaa 

GIN 
IF 


paa); 

=  curst*.aa«qty  +  1; 
tr  :=  curst; 
=  curaa; 
aaj ; 
trans)  DG 

, aa. id, trans-site. trans.num  <>  9*9  ThEw 

C*3*) 

temDaa.aa.ld, trans-site. trans -num  <> 
tempaa2.aa-id.trans-site.trans-num  TnEN 
BEGIN   C*4») 

new (curt) ; 

addt (curt, tempaa  ) ; 

ba set*. nxt  :  =  curt; 

Mi* (curst j ; 

aaast (curst, tempaa); 

curt*.st-qty  :=  curt~.st.qty  +  l; 

curt*.st-ptr  :=  curst; 

MEw (curaa) ; 

addaa(curaaf tempaa); 

curst*. aa.qty  :=  curst*  .aa.qty  +■  i; 

curst*. aa-ptr  :=  curaa; 

Daset  :=  curt; 

oasest  :=  curst; 
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IF 


It 


£N0; 


END 


END 
C*2*) 


END 
(te 
tem 
(te 
tem 
BEG 


£NU 
(te 
tem 
(te 
tem 
BEG 


END 
(*3* 


base 

temp 

R£AD 

;  ( 

mpaa 

paa2 

mpaa 

paa2 

IN 

N£rt( 

aads 

curt 

oase 

NE*( 

adda 

curs 

curs 

case 

DaSe 

temp 
k£aO 
( 
mpaa 
paa2 
mpaa 
paa/ 
IN 

NE*»( 
aaaa 
curs 
base 
base 
temp 
READ 
C* 
) 


aa    : 

aa2 

(tra 

*4*) 

,aa. 

•  od. 

.ao. 
(*5* 
curs 
tCcu 
*.st 

St*  , 

cura 

a  Ccu 

t*.a 

t*.a 

st  : 

aa  : 

aa2 

(tra 

*5*) 

•  aa. 

.aa. 

,aa. 

.aa. 

(*6* 

cura 

a(cu 

t*.a 

aa* . 

aa  : 

aa2 

(tra 

6*) 


=   c  u  r  a  a ; 
:=    ternpaa; 
ns , tempaa) ; 


id. 

la. 

iu, 

id. 

) 

t); 

rst 

-qt 

nxt 

a  J ; 

raa 

a.q 

a.p 

=  c 

a  c 


trans. site. trans. num  = 
trans. site. trans. num )  ana 
st.num  <> 
st.num)  THKN 


ns 

id 

id 

la 

ia 

) 

a; 

ra 

a. 

nx 


,  t  e  m  p  a  a ) ; 

y  :=  curt*.st.qty  + 
: =  curst; 

, ternpaa j ; 

ty  :=  curst* .aa.qty 

tr  :=  curaa; 

urst; 
u  r  a  a  ; 
t  a  m  p  a  a ; 
tempaa)  ; 


1  ; 


i  / 


. trans. site. trans.num  = 
•  trans. site. trans. num)  ana 
.st.num  = 

.St.num)  THEN 


ns 


a, ternpaa) ; 
aty  :=  curst 
t  :=  curaa; 
curaa; 
tempaa; 
,  t  e  m  p  a  a ) ; 


.aa.qty  +  i; 


(GLOBAL] 
PROCEDURE  blddlc; 

(*  tftis  proc  builds  the  data  dictionary  structure 
from  tne  text  file  datadic*) 


VAR 


oased,curd  :  ptr.dic; 
i  :  integer; 
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en  :  cnar; 

PROCEDURE  addd  Ccurd  :  ptr.dic; 

en  ;  cnar J ; 

(*  tnis  proc  fills  one  aata  die  lin*  node  witn  ^at**) 

BEGIN  (*al*) 

curd*, site. ia  :=  en; 

cura*.nxt  :-  nil; 
END?   (*ai*) 

£$  *******************  ***********  *  *  *  ***  *********************  J 

(*  Degin  main  program  biadic  *J 
BEGIN   C*l*) 

fur  i  :=  o  to  *y  uo 

die-array  Cli " :=  nil; 
ne^ (die-array  CO  J )  ; 
die-array coj *.nxt  :-   nil; 
RE A DLN c da t ad ic, die-array CC] ".site-id) ; 
i  :=  l; 

whlbE  not  eofCdataaic)  DO 
BEGIN   (Ma*) 

IF  not  eotCaatadic)  IHEn 

READLNCdataaic, en) ; 
IF  en  <>  *9'  ThEN 
BEGIN   (Mb») 

NtXdic-array  CiJ  )  ; 
cased  :=' die-array Ci J ; 
curd  :=  die-array  [ij ; 
aaddCcurd, en) ; 
end;    C  *  id*  j 
aHILE  Ccn  <>  *x*)  and  (not  eot (datadic) )  uO 
BEGIN   (*2M 

Ir  not  eof(dataoic)  THEN 

READLN(datadic,en) ; 
If  (en  =  '9')  TtiEN 

BEGIN    (*2.S*) 

dic-arraytij   :=  nil; 
READLN(catadic,cn); 
END    C*2.5M 
ELSE 

IF  Ccn  <>  'X')  TttEN 
BEGIN   (*3*) 
NEW (curd) ; 
aadd(curd/cn) ; 
based*. nxt  :=  curd; 
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END; 


i  : 

END; 
C*l*) 


cased  :=  euro; 
END;    (*i*) 
END;    (*2*) 
a  i  +  l; 
i*ia*) 


{ft********************************* *****t*+*+*4 ****** +4 +%*) 

[GLOBAL] 

PROCEDURE  add.n.and.t  (VAR  cur.cn-ptr  :  ptr.ch); 

(*  tnis  procedure  adds  a  neader  ana  trailer  to  tne  input 
conflict  nistory  list  *) 


VAR 


out.cn. ptr,  tviptr  :  ptr.cn; 
pout. en. ptr  :  ptr.cn. pair; 


BEGIN 
C*  i 

ouild   neade 

NEWCOUt 

:-cn. 

Ptr) 

out. 
out, 

-en. 
-en. 

.ptr* 
.ptr* 

•  aa- 

.  aa. 

out, 

-en. 

.ptr* 

,aa- 

out. 
out. 

-en. 
-en. 

.ptr* 
.ptr* 

,  aa. 

*  dd. 

out. 

-cn. 

.ptr* 

,aa- 

out, 

-cn. 

.Ptr* 

,aa- 

out, 

■en. 

.ptr* 

.aa. 

r  *) 

t 

9 

id, trans-site. inlt. site 
id. trans. site. trans. n urn 
la.st.nurc  :=  0; 
id.aa.num  ;=  0; 
ia.r-d-flg  :=  'z'; 
ia, do-id  :=  u; 
id.cn.seq  :=  0; 
ia, metric  :=  0; 


s  '  *  '  ; 

=  -i; 


(*  ouila  header  pair  *) 
NEwCpout.cn. ptr j ; 

out.ch.ptr*.oair-ptr  :=  pout.cn.ptr; 
pout. cn.p t r *. aa.ia. t ran s.site. init.slte  : 
pout.cn.pt r* .a a. id. trans. site. trans. num  : 
pout.cn.ptr*.aa.id,st_num  :=  u; 
pout.cn.ptr*.aa.ia.da_nurr.  :=  o; 
pout.cn.ptr*.aa.ia.r.w-f lg  :=  'z'; 
pout.cn.ptr*.aa.ia.do.ia  :=  u; 
pout.cn.ptr* .aa. ia. cn.sea  :=  o; 
cout-cn.ptr*,aa. id. metric  :=  o; 
pout. en. ptr*. metric. sum  :=  u; 

C*  add  tne  neader  *) 
out.cn.ptr*,nxt  :=  cur.ch.ptr; 
cur. en. ptr" :-  out.cn.ptr; 

C*  oulld  trailer  *) 
new (out.cn.ptr); 


-i; 
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out.cn_ptr*,aa_ld. trans.site.init.slte  :  = 
out.cn.ptr*.aa_id.trans.site, trans. num  :  = 
out.cn. ptr*, aa. id. st. num  :=  0; 
out.cn.ptr*.aa.id,aa.num  :=  0; 
out. en. ptr*. aa. id, r.w.flq  ;=  *z'; 
out. ch.?tr*,aa.id, do-id  :=  u; 
out-cn-ptr*,aa-id.ch-seq  :=  0; 
out_cn-ptr~,aa-id. metric  :=  0; 
out-cn-ptr*.nxt  :=  nil; 


'a'; 
99  9  9; 


(*  ouila  trailer  pair  *) 
NE*(pout.ch.ptr) ; 

out_cn.ptr~.Dair.ptr  :=  pout.ch-ptr; 
pout.cn.ptr~.aa.id. tr ans.site.ini t.site 
pout.ch.ptr*.aa.id. trans.s ite.tr ans-num 
pout.cn.ptr*.aa-ia,st-nun'  :=  o; 
pout. en. ptr"  .aa. id, aa.nu.T:  :=  0; 
pout. cn.ptr~,aa.ia,r.w. fig  :=  'z'; 
oout.cn. ptr*. aa.ia.ao. id  ;= u; 
pout. en. ptr*, aa. id. en. seq  :=  u; 
pout. cn.ptr* .aa. la, metric  :=  o; 
pout. en. ptr*. metric. sum  :=  0; 


=  9999; 


C*  ada  tne  trailer  *) 
tviptr  :=  cur. en. ptr; 
wrilLE  tviptr", nxt  <>  nil  DO 

tviptr  :=  tviptr*. nxt; 
tviptr*. nxt  :=  out.ch.ptr; 

END; 

[GLOBAL] 
PROCEDURE  blado; 

(*  tnls  ouilds  tne  data  ooject  structure  from  tne  integer 
file  dcoj.dat  *) 

VAR 

i  :  integer; 

BEGIN   C*l») 

FOR  i  :=  1  to  99  UQ 

do.arrayii]  :=  nil; 
i  :=  l; 

*HILE  not  eofidooj)  DO 
BEGIN   (*2*3 

NEWCdo. array CiJ ) ; 

RtADLNCdobj ,do.array  UJ " .n.cnt J ; 
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(♦add  a  header  ana  trailer  record  to  o.o.  cn*j 
do. array  Li] -.cn.ptr  :=  nil; 
add.n.and.t" (do.array  Llj  *.cn.ptr) ; 

(*flll  d,o.  perm  rec  tields») 
do. array [i]-, tv.ptr  ;=  nil; 
do.array Ci] *,ioc<.q.ptr  :=  nil; 
do.array Ci3 *, no. reads  :=  u; 
ao.array Ci3 *, no. writes  :=  0; 
do. array iiJ ".locK  2  =  taise; 
do. array CiJ Ss.cnt  :=  0; 
do. array [13 *, locx.qty  :=  -l; 
do. array CiJ Scn.seq  :=  o; 
i  :  =  l  +  l  ; 
END;    (*2*) 
END;   (*l*) 

I**********  **********************  +  +  **********  + *  +  *tf?Z4.Jl.*  +  **^ 
l*****************************************!****************) 

[GLOBAL] 

PROCEDURE  enter. time. delay  (VAk  time. delay  :  integer); 

(*  this  procedure  requests  as  input  an  integer  to  act  as  a 
delay  value  *) 

BEGIN 

wRITELn; 

*RITELN  ('Enter  an  integer  tor  a  time-delay  constant  :'); 

READDim  (tlme.aelay) ; 

time. delay  ;=  ABS  (time. delay ) ; 

WRITELtff 

vRITELn  ('Ihe  time-delay  constant  is',  time. delay); 
END; 

(t************^******  *********************************  ******) 

(**********************************************************) 

[GLOBAL] 

PROCEDURE  enter. random. seed  (VAR  seea  :  unsigned;; 

(*  tnis  procedure  requests  as  input  an  integer  to  oe  usea  as 
the  seed  tor  a  random  numoer  generator  *) 

BEGIN 

*riteln; 

*RITELN  ('Enter  an  integer  to  act  as  a  seed  tor  tne', 

*  random  number  generator  :'); 
READLN  (seea); 
*RITELN; 
writeln  ('The  seed  value  is',  seea); 
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END; 

[GLOBAL] 

PROCEDURE  checK.stop  CVAH  stoprun  :  Doolean; 

en  :  char); 

(*  tnis  reads  a  character  from  tne  Keyooara  ana  determines 
if  input  snouid  stop  or  continue  *) 


BEGIN  (*cnecx.stop*) 

IF  not  (en  in  [ 'y' , 'Y ' , 'n' , 'N')  )  THEN 

en  ;=  'z"t 
case  en  of 

'n','N'  :  stoprun  :=true; 
'y',*¥*  :  stoprun  :=  false; 
'z'  :  wRITELNCerror  try  again'); 

END?   Crease*) 
END;   (*checK.stoc*) 


(**+*********************************+************* ********) 

LGLOBAL] 

PROCEDURE  read. integer  CVAR  num  :  integer); 

C*  Inis  reads  an  integer  from  the  terminal  in  char  format 
and  edits  it  tor  type.   It  looos  error  msgs  until  a  leaal 
Integer  is  input*) 

CONST 

goodset  =  L'O'.,  'y'j ; 
maxintdlg  =  10; 

VAR 

line:  array  Ci.,803  of  cnar; 
index, length  ;  integer; 
good. answer  :  boolean; 

BEGIN 

gooa. answer  :=  false; 
while  not  good. answer  DO 
BEGIN 

index  :=  1; 
READUInec. index, )); 

rfriiLE  notClineC.  index. )  =  '  ')  and  not  eoln 
and '(index  <  maxintdig)  DO 
BEGIN 

index  :=  index  +  l; 
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READ(line(  .Index. ) ) 
END; 
READLN; 

lenqtn  :=  index; 
gooa. answer  :=  (index  > 

not(line( .index. ) 
FOR  index  :=  1  TO  lengtn 


1)  or 

3  '  '  )  ; 

uO 


good. answer  :=  gooa. answer  and 

ClineC. index.)  in  goodset); 
IF  not  good. answer  THEN 
BEGIN 

Fuh  index  :=  l  ru  lengtn  DO 

wRIIE(line(, index. ) ) ; 
wkMELnCIs  not  an  integer'); 
*t\IT£LN( 'please  inout  again') 
END 
END;   C  *  w n  i 1 e  *  ) 
num  :=  0; 
FOR  index  :=  1  TO  lenqtn  DO 

nuin  :=  num  *  10  ♦  CordClmeC .  index. ))  -ora(  '0' ) ) 
END;   (*proc*) 

PROCEDURE  write. query  cvar  ans  :  integer); 
(*tnis  writes  the  terminal  output  tor  Dldcntv  *) 


BEGIN   (*wq«) 


IN   (*wq*) 

«RirELM( 'tnis  Droc  cuiios  te^p  vers  an 

wRiTSLiMC 'tor  tests'); 

wRITELwC  'What  do  you  want  to  ouilu?'); 

*RITELN; 


vers  and  conflict  hists'); 


a  teraoorary  version'); 

a  conflict  nistory  pair*); 

nothing') ; 


*RITELN; 
■vRITELrt  C'l 
wRITELnC '2 
wRHELNC'3 
aRIIELn; 

wRiTEC 'respona    with    single    aigit===>'); 
read.inteqer (ans ) ; 
END;       (*wq*) 

(**##*<t*^*»*#******«»****^***#»**«***it********^************) 


[GLOBAL] 
PROCEDURE  savchtv; 

(*  this  constructs  either  conf  hists  or  temp  versions  ana 
outputs  the  data  to  file  "runfile"  for  use  py  proc 
concntv.pas  «) 
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const 

aa    =  100;     (*dummy  const*) 

VAR 

cn  :  cnar; 

a  n  s  ,  a  Jinteger; 

correct ,stoprun  j  boolean? 

curtv  :  ptr-tv? 

curcn  :  ptr.cn? 

PROCEDURE  write-cn  (curcn  :  ptr-ch)? 

(*  tnis  writes  to  file  runfile  for  constructing  cn  ana  tv 
structures  *) 


VAR 


temppair 


ptr.cn-.cair? 


BEGIN 
tern 
*RI 
*RI 
*Ri 
wRI 
aRI 
«RI 
*RI 
taRI 
'.VRI 
*RI 
*R1 
WRI 
*nl 
a  Hi 
*RI 
*RI 
*RI 

END? 


ppai 
XELN 
TELrt 
XELn 
XELN 
1ELN 
XELN 
XELN 
XELN 
XELN 
r£LN 
XELN 
XELN 
XELN 
XELN 
XELN 
XELN 

(*P 


r  :  = 

(run 
(run 
(run 
(run 
(run 
(run 
(run 
(run 
(run 
(run 
(run 
(run 
(run 
(run 
(run 
(run 
(run 
roc 


cur 
file 
file 
tile 
file 
tiie 
file 
file 
file 
file 
file 
tile 
tile 
tile 
tiie 
file 
file 
file 
writ 


cn*.cai 
, curcn* 
, curcn* 
, curcn* 
, curcn* 
, curcn* 
, curcn* 
, curcn* 
,curcn* 
, temppa 
, temppa 
, temppa 
, temppa 
, temppa 
, temppa 
, temppa 
, temppa 
, temppa 
e-cn*) 


r-p' 

•  aa. 

•  aa« 
,aa. 
.  aa. 
,aa. 

•  aa. 
.aa. 
.  aa. 
ir* 
ir* 
ir* 
ir* 
ir* 
ir* 
ir* 
ir* 
ir* 


r? 
,ia 
.id 
,ia 
,ia 
,ia 
,ia 
,ia 
la 
aa 
aa 
aa 
aa 
aa 
aa 
aa 
aa 
me 


.  tr 

•  tr 

•  st 

•  aa 

•  r- 

•  ao 
.cn 

•  me 
-id 
-id 
-id 
-id 
-id 
-id 
-id 
-id 
tri 


ans 
ans 
-nu 
-nu 
w-t 
-ia 
-se 
tri 
.tr 
.tr 
.st 
,  aa 

•  r. 

•  ao 
.cn 
,me 

C-S 


-S 

m) 
m) 

ig 

)? 

q) 

C) 

an 
an 
-n 
-n 

Urn, 

-1 

.S 

tr 
urn 


ite,  mit.site)  ? 
ite , trans. num) ? 


)? 


0 

s.s 
s.s 

am) 
um) 
fig 
a)? 
eq) 
ic) 
)? 


ite. in  it-site) ; 
ite. trans. rum) ? 


r 

)  ? 

f 

9 
t 


PROCEDURE  const-tempv  (VAR  curtv  :  ptr-tv)? 

(*  this  constructs  a  temp  ver  from  parameters  input 

interactively  and  places  the  data'on  tile  runaata.aat  *) 


VAR 


inval  :  integer? 
cn  :  char? 
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tempv  :  ptr-tv; 


BEGIN  C*l 
NErfCcur 
aRITELN 
wRITELN 
KEAULNC 
fi  H I L  E  n 

b£GI 

w 

R 

end; 

whITELn 
wRITELN 
read. in 
WRITELN 
*RITELN 
read. in 
4KITELN 
*RIT£LN 
read. in 
WRITELN 
rfRITELN 
REAOLMC 
*rtlL£  n 
6EGI 

R 
END? 

WFITELN 
mRIXELN 

reaa.in 
WRITELN 
*RII£Ln 
read. in 
WRITELN 
WRITELN 
read. in 
tfRITELN 
rfRITELN 
read. in 
KRITELN 
WRITELN 
REAULNC 
*HILE  n 
BEGI 

R 

end; 

WRITELN 


tv) 
Cru 
C'e 

ch) 
ot 

N 

RIT 

EAD 


n  f  i  1  e , '  t ' ) ; 

nter  the  init  site  number'); 


Ccn  in  Co 


,'l'  ,'  I'  ,  '3', '4','b*, 

,'7','b','y'j )  do 


ELNC  'error  try  again'); 
LiUcn) ; 


Crunf 

Cent 

teaer 

(runf 

Cent 

teger 

(runt 

( 'ent 

teger 

(runt 

Cent 

ch); 

ot  Cc 

N 

RITtb 

EADLN 


iie,cn) ; 

er  tne  trans  number'); 

(curtv*. aa. id. trans-site. trans -n urn); 

iie, curt v.aa.id. trans. s ire. trans-nun ) ; 

er  tne  sub  trans  numoer'); 

( cur t v*. aa. i d. st.nu it. ) ; 

lie, curt v* .aa.id.st.num) ; 

er  tne  atomic  action  number'); 

(curtv* .aa.id.aa.num) ; 

ile,curtv*  , aa. la. aa.n urn) ; 

er  tne  read  write  r  or  w  flag'); 

h  in  Cr'Cw'J)  Du 

NC'error  try  again'); 
Ccn) ; 


Crun 
('en 
tege 
(run 
( 'en 
tege 
(run 
('en 
tege 
(run 
('en 
tege 
(run 
Cen 
en)  ; 
ot  C 

N 

RITE 

EADL 


tile, en) ; 

ter  tne  aata  oo;j  numoer'); 

r(curtv*.aa.id.do.idj; 

file,curtv*,aa.id.ao-id); 

ter  tne  conf  hist  seg  number'); 

r (curtv* . aa.ia.cn-seg) ; 

file, curtv*. aa.id.cn. sea); 

ter  tne  metric  numoer'); 

r(curtv*,aa.ia. metric); 

file, curtv.aa.id. metric); 

ter  the  metric  sum  number'); 

r( curtv*. me trie-sum) ; 

file, curtv*. metric. sum); 

ter  tne  status  field  cnar  r,w,c 


x'); 


en  in  Cr',  'w',  'c'/x'J )  DQ 

LNCerror  try  again'); 
N(cn) ; 


(runf lie, en) ; 
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end; (*1*) 


(************************************  ********************.**) 

PROCEDURE  const. connist  cvar  curcn  :  ptr-cn); 

C*  this  constructs  a  conf  hist  from  parameters  incut 

interactively  and  places  tne  data  on  file  runfile.dat  *) 


VAR 


invai   :  integer; 
en  :  char; 
tempen  :  ptr.cn; 
temppair  ;  ptr.cn. pair; 


BEGIN 
HE 
HE 

*R 
cu 
cu 
*R 

*R 

at 

*'H 


cu 
*r 
re 
*R 
re 
«R 
re 
*R 
RE 


CU 
rfR 
re 
WR 
re 
*R 
re 


C*l* 

*(curch 
to  ( it  e  in  p  p 

ITELNCr 
rcn*.nx 
rcn*.pa 
ITELNC 
ITELnC 
AULNCcn 
ILE  not 

3  EG  IN 
KRI 
REA 

END; 
rcn*. aa 
ITELwC 
ad.inte 
ITELNC 
ad.inte 
ITELNC 
aa.inte 
ITELNC 
ADLNCcn 
ILE  not 

dEGIN 
*RI 
REA 

END; 
rch*,aa 
ITELNC 
ad.inte 
ITELNC 
ad.inte 
ITELNC 
ad.inte 


); 

a  i  r )  ; 

unfile  CO  ; 
t  :=  nil; 

ir.ptr  :=  temppair; 

enter  tne  values  for  tne  first  en  pair  -nemoer'j; 
enter  tne  init  site  numoer'); 
); 
Cch  in  ['0','r,'2','3'»'4'/5', 
'6','7','b','9'j)  DU 


TELNCerror  try  again'); 
DLNCcn; ; 

.id, trans. site. init-site  :=  en; 
enter  tne  trans  number'); 
gerCcurcn'.aa.id, trans. site, trans.num) ; 
enter  tne  suo  trans  numoer'); 
ger(curcn*,aa.id. st.num) ; 
enter  the  atomic  action  number'); 
ger (curcn*. aa. id. aa.num) ; 
enter  tne  read  write  r  or  *  flag*); 
)i 
(en  in  Cr'Cw'j)  Da 

TELN('error  try  again'); 
CLN(ch) ; 

.id.r.w.flg  :=  eh; 

enter  tne  data  ofcj  numoer'); 

ger(curcn* . aa. id. do-id) ; 

enter  tne  conf  nist  seq  numoer'); 

ge r ( cu r en*. aa. id, cn.s eg) ; 

enter  tne  metric  numper'); 

ger ( curcn*. aa.id. me trie) ; 
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*RIT£LN(  'ente 
■iRIT£Ln(  'ente 
READ{jN(Ch} ; 
WHILE   not    (en 


r  values  for  tne  second  en  pair  memoer'J; 
r  tne  init  site  nuffloer'); 


in  ['0','r/rf'j','4','b'r 
~*6",#7#,'8#,*9'J  )  DU 


te 

WR 

re 
wh 
re 
*R 
re 

WK 

R£ 


te 
*R 
re 

WR 

re 
wR 
re 
*R 
re 
END; 


B£GI 

H 

R 

end; 
mppai 
IIELN 
ad. in 
ITELN 
aa.in 
IIELN 
aa.in 
ITELN 
mUL-mC 
£L£  n 

6£GI 
h 
R 

END; 
mppai 
ITELN 
ad. in 
ITELN 
ad. in 
ITELN 
ad. in 
ITELN 
aa.in 

C*l* 


RITELN 
EADLNC 


('error  try  again'); 
en); 


ns.num) ; 


('error  try  again'); 
en); 


r*.aa.id,r.w-f lg  :=  en; 

Center  tne  data  ooj  numcer'); 

teger(temopair*,,aa-io.ao.id); 

('enter  tne  conf  hist  seq  number'); 

teger(temppair*.aa.ia.cn.sea); 

('enter  tne  metric  numoer'); 

teger(temppair*.aa.iq.metric); 

('enter  tne  metric  sum  nurroer'); 

teger (temppdlr*. metric. sum j; 

) 


PROCEDURE  add.connist  CVAR  curcn  :  ptr-cn); 

(*  tnis  proc  aads  tne  newly  built  conf  nist  to  tne 
runfile.dat  file  *) 

VAR 

curtr  :  ptr-trans; 

curst  :  ptr.strans; 

tempcn,folcn  :  ptr-cn; 

temptv  :  ptr.tv; 

lndo,Inval , lntr,inst  :  integer; 

insite,cn  :  cnar; 

begin   (*l*) 

^RIT£LN( 'this  places  tne  new  conf  nist  in  a  place', 
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WRIT 

*RIT 
WRIT 
WRIT 

*RIT 
*RIT 
*RIT 
*HIT 
read 
w  h  I  u 
b 


*Rir 

case 
1 


£LN 
ELN 
ELN 
ELN 
ELN 
£LN 
ELN 
ELN 
-in 
£  n 
EGI 
w 
r 
no; 
ELN 
in 


'  of  your  choosing'); 

C'select  wnere  you  want  the  conf  nist  to  go*); 

* 

C'l  :  to  a  data  object=>sorteo  oraef); 

C*2  :  to  a  sua  transaction'); 

C'3  :  to  a  teup  version*); 

C'4  :  to  a  transaction'); 

('respond  witn  a  single  digit  ===>*); 

teger (lnval) ; 

ot  (inval  in  [1,2,3,4])  uo 

a 

RITELNC 'error  enter  again'); 

ead-in teger Cinval) ; 


Cruntlie, inval) ; 

val  of 

BEGIN      C*Cl*) 

wKITELN  t 'type  which  data  od]  gets  tne  conf, 

''  nist'); 
read. in teger Cinval) ; 
while  not  Cinval  in  C1..993)  bO 
BEGIN     C*2.5*) 

wkiTELNC 'error  enter  again'); 
read-integer Cinval) ; 
end;   C*2.5*) 
IF  do-array  Cinvalj  =  nil  IHEN 

wRXTELN C 'data  opj  not  in  use  do  over'); 
*RITELN(runfile, inval); 
write-cnCcurch) ; 
end;     C*cl*) 

BEGIN    C*C2*) 

*RITELNi  'you  are  placing  a  conf  hist  in  a*, 

" '  suo  tran') ; 
wRITELNC  'enter  tne  init  site  tor  this  conf, 

''  hist'); 
READLN(insite) ; 


while  not  Cinsite  in  t'u 


'6','7','ti','y'J)  DO 
BEGIN 

wkiTELNC 'error  try  again'); 
READLNClnsite); 
END; 
w RlTELNCr unfile, insite); 
aRITELNC  'enter  the  trans  num  for  this  conf, 

''  nist'); 
read-integer Cintr ) ; 
while  not  Cintr  in  U..99J)  du 

BEGIN 

writelnc 'error  try  again'); 
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read.inteqer (intr ) ; 
end; 
WRiiELNirunf lie, intr); 
WKITELNC'enter  the  sue  trans 

' '  conf  hist'); 
read.integerCinst); 
while  not  (Inst  in  E1..99J)  DO 

fltGlN 

wRITELN C 'error  try  again'); 
read-integerCinst); 
END; 
wRIT£LNirunfiie,inst); 
write. ch(curch) ; 
End;    C*2.*) 


num  tor  tnis", 


clng  a  conf  hist  in  a 
for  tnis' 


3  :  BEGIN    (*J») 

wKllELNC'you  are  placing  a  conf 

"*  temp  ver'); 
*RI1ELN( 'enter  the  data  ooj  num 

''  conf  hist'); 
reaa.integer (inao) ; 
while  not  Cinao  in  u..*9J)  au 
bEGIN 

wRITfcLNC 'error  try  again'); 
reaa-integerCinoo);" 
end; 
KRITELNCrunf ile,indo); 
wRITELNC  'enter  the  imt  site  for  ti" 
"'  nist'); 
• RLAuLN(lnsite)  ; 
while  not  Cinsite 


his  cont 
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*RITELNC  'error  try  again'); 

read_integerCinst);~ 
end; 
wRlTELN(.runr.iie,inst)  ; 
*rite.criCcurch) ; 

END;   1*3*) 

4  :  BEGIN   (»C4*) 

aRITELNC'you  are  placing  a  conf  hist  in  a', 

"'  trans'); 
wkITELNC 'enter  the  init  site  for  this  conf, 

''  nist'); 
REAuLNCinsite) ; 

*hILE  not  (insite  in  L 'u' , 'l ' , '2' , ' j ' , '4' ,  'j' , 

'o','7','b','y'J)  D  Q 
fcEGlN 

WRiitLfU  'error  try  again'); 
RtADLNCinslte) ; 
end; 
*RITELNCrun£ile,insite) ; 
kkITELN c 'enter  the  trans  num  for  this  conf, 

"'  nist'); 
read.integerCintr); 
while  not  Cintr  in  C1..V9J)  DO 

BEGIN 

«HlTELiM(  'error  try  again'); 
read.integer Cintr ) ; 
END; 
«RITELNCrunfiie,intr); 
writccriccurch) ; 
end;   C*4.*j 
END;   (*case*j 
END;   (*1») 

^************************** ******** ************************) 

C*  main  loop  tor  savchtv  *) 

BEGIN   C*l») 

rewriteCrunflle); 
REPEAT   C*until  stoprun*) 
correct  :=  false; 
a  :  =  l ; 

while  correct  =  false  DU 
BEGIN   C*2*) 

write. query  Cans) ; 
IE  Cans  in  CI, 2, 33)  THtN 
correct  :=  true; 
END;    C*2*) 
curtv  :=  nil; 
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curcn  :=  nil; 
case  ans  of 

1  :  const-tempv(curtv); 
2:  atGiN 

const-conn  1st (curcn) ; 
add-connist( curcn ) ; 
end; 
3  :  a  :  =  a  +  1 ; 
END;    (*case*) 

rfRITELNCmore  temp  vers  or  conf  nists  :  y  or  n'j; 
READLN(cn) ; 

cnecx.s top (stop run, en) ; 
until  stoprun; 

END;   (*1*) 

r ********************************************* ********* ****  ) 
(******************** **************************************;) 

[GLOBAL] 

PROCEDURE  concntv; 

(*  tnis  constructs  eltner  conf  nists  or  temp  vers  from  tne 
data  in  file  run file  entered  in  proc  saventv  *) 

const 

aa  =  10U;     (»dummy  const*) 

VAR 

insite,cn  :  cnar; 

rfnere,inval,lnao,intr,ip.st,ans,a  :  integer; 
curtv  :  ptr-tv; 
curcn  :  ptr-cn; 

(**********************************************************) 
procedure  const. temDv  cvar  curtv  :  ptr-tv); 

(*  tnis  constructs  a  temp  ver  from  parameters  inout  from 
file  runfile  *) 

VAR 

lnval  ;  integer; 
ch  :  cnar; 
cempv  :  ptr-tv; 

BEGIN   (*i*) 
NE* (curtv) ; 

curtv* . tv-cn-ptr  :=  nil; 
curtv*. nxt  :=  nil; 

READLN (runfile , curtv*, a a-ia.trans-site.init-site); 
READLN(runf lie, curtv*, aa-id, trans-si te.tr ans-num) ; 


lub 


READLNCrunf  ile,curtv*,aa-id,st-nurn) ; 
READLNCrunf  lie,  curtv*.  aa-id.aa-nuir.)  ; 
READLNCrunfile, curtv*. aa- id. r-w-tiaj; 
READ  LNCrur.  file, curtv*. aa-id.do-id); 
RtACLNCrunf  lie,  curtv  *,aa-id.ch-secj)  ; 
READLN Crunfile, curtv*, aa-la.  metric); 
READLNCrunf lie, curt v*, metric-sum) ; 
READLflC run file, curtv*. stat- fid); 

C*add  the  tv  to  the  do*) 
inval  :=  curtv*. aa-id. do-id; 
IF  do-array c inval j  =  nil  ThcN 

*RITELM 'this  data  ooj  not  in  use') 
ELSE 

IF  do. array  [invalJ  *,  tv-ptr  =  ml  THEN 
3EGIN 

ao-array Linvau *. tv-ptr  :=  curtv; 
ao-arraylinvalJ *.cn-seq  := 

ao-array tinval j * .ch-seq  +  1; 
END 
ELSE 

BEGIN   C*2*) 

tempv  :=  do-array  tmvall  *.  tv-ptr; 
wnlLE  tempv*. nxt  <>  nil  Do 

tempv  :=" tempv* ,nxt; 
tempv*, nxt  :=  curtv? 
do-array LinvalJ *.cn-seq  := 

do-array [inval j *,ch-seq  +  l; 
END;   C*2*) 
END;   C*l*) 

(f******************  *********  ******************************) 

PROCEDURE  cons t-conhis t  CVAR  curch  :  ptr-ch); 

(*  tnis  constructs  a  conf  hist  froni  parameters  inmit  from 
file  runflle.dat  *) 

VAR 

inval   :  integer; 
ch  :  char; 
tempcn  :  ptr-cn; 
temppair  :  ptr-ch.pair ; 

BEGIN    C*l*) 
NEw(curcn) ; 
Ml* ( temppair) ; 
cur en*. nxt  :=  nil; 
curch*. pair-ptr  :=  temppair; 

READLNCrunf He, curch*. aa-i a, trans-site. init-site) ; 
READuW cr un f lie, curch*. aa- id.tr an s-site.trans-n urn); 
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READLN(runfile,curch*  .  aa-ia.st-nuir. )  ; 
RE adln (r unfile, cur en*. aa-id.aa-nuaO ; 
READLNCrunf  ile,curcn*,aa-ia.r..*-.f  xq) ; 
READLNCr  unfile, curcn*. aa-ia.do_.id)  ; 
READLMCrunf  iie,curcn*,aa-ia.cn-seci) ; 
R£ADLN(runf  ile,curcn*,da.ia.rretric) ; 

READLNCr untile, temppair* .aa-id. trans-site, init-site ) ; 
READ  LNCrunfile, temppair*. aa-id. trans«.site. trans -num); 
RE AD LN(runfile, temppair*.aa-ia.st-num) ; 
READLN(runfile, temppair*. aa- id. aa-n urn); 
READLNCrunfile, temppair*  ,  aa-ia.r-.v-t  id) ; 
RtAULNCrunf He, temppair*.aa.ia.ao-ia) ; 
READLNCrunfile, temppair*. aa-ia.ch-seq); 
RE ADLNCrunfile,tempoair*. aa-id. metric); 
READLNCrunf lie, temppair *. metric-sum ) ; 
end;   ( *  1  * ) 

PRGCEUUHE  add-conhist  CVAR  curcn  :  Ptr-cn; 

*here, inval, indo  j  intecer; 
insite  ;  char; 
mtr,inst  :' integer); 

(*  this  proc  adds  tne  newly  built  conf  nist  to  the  selected 
destination  of  a  aata  obJ,temp  ver  or  sue  trans  *) 

VAR 

curtr  :  Dtr-trans; 
curst  :  ptr-strans; 
tempcn,folcn  :  ptr-cn; 
temptv  j  ptr-tv; 

BEGIN   C*l*) 

case  where  of 

1  :  BEGIN   (*cl*) 

If  do.array  CinvaU  =  nil  then 

*RITELfl( 'data  obj  not  in  use  do  over') 
ELSE 

BEGIN   (*3*) 

folch    :=   ao-array  linvau  *.cn„ptr; 
tempch    :=   do-array [inval] * .cn.ptr* . nxt; 
while   tempch*,nxt   <i>   nil   DG 

BEGIN     (*4*) 

folch" :s  temDCh; 
terapen  :=  tempcn*,nxt; 
END;    C*4«) 
curcn*. nxt  "  ;=  folch*. nxt; 
folcn*.nxt  :=  curcn; 
end;   c*"3*) 
END;   C*cl*)  " 
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BEGIN   (*C2*) 

curtr  :=  tr 
IF  curtr  s 

*RITELN( 

while  (curt 

.  tran 

(curt 

curtr  := 

IF  (curtr*. 

C (curtr* 

(curtr*". 

WRITELN( 

ELSE 

bEGIN   ( 

curst 
IF  cu 


ans 
nil 
'no 
r*. 
s.s 
r*. 
cu 
nxt 
•  tr 
tra 
'tr 
'  t 

*c2 

«  *• 

TSZ 
ITE 


ou 


-ptr; 

ThEN 

transes  at  all'); 
nxt'o  nil)  and  not  ((curtr" 
ite.init.site  =  lnsite)  and' 
trans. site. trans. num  =  intr)) 
rtr*,nxt; 

=  nil)  and  not 
ans-site.  mit.site  =  lnsite)  ana 
ns.site. trans. num  =  intr))  1HEN 
ansaction  does  not  exist  in", 
nis ' run' ) 


ELSE  BEG 
WHILE 


IF 


cu 

(C 

(c 

WR 

ELSE 
IF 

EL 


EN 
END; 
end;   C* 
end;   (*c2. 
end;   (*2.*) 


.1* 

CO 

LNC 

IN 
(C 
(C 

rst 

urs 

urs 

ITE 

BEG 

cu 

cu 

SE 

te 

ftH 

te 
D; 

(* 
c2. 
1*) 


) 

rtr*. 
nil"  I 
'no  s 
'  tra 

(*C2 
urst* 
urst* 

:=  c 
t*.nx 
t*.st 

LN('S 
IN    ( 

r  s  t  *  . 
rst*. 

uipch 
iLt    t 
temp 
mpch* 

(*C2 

c2.2* 
1.5*) 


st. 

HEN 
UD 

ns' 
.1. 
,nx 
.st 

urs 
t  = 
-id 
ub 
*c2 
st. 
sc. 
( 

•  "■ 

emp 
en 
,nx 
.J* 

)  " 


Ptr; 


transes  for  this', 
) 

5* 
t 

_i< 
f 
n. 


tr 
.2 

ch 
en 
*c 

cu 

en 


) 
<> 

a 

.n 
il 
i 
an 
*) 
.0 
-P 
2. 
rs 


nil)  ano  not 
=  Inst)  UQ 
xt; 

)  and  not 
nst)  THEN 
s  aoes  not 


exist ' ) 


=  t 


tr  =  nil  THEN 
t r  ; =  curcn 
3*) 

t*. st. eh. ptr ; 
nxt  <>  nil  du 
empch*.nxt; 
curcn; 


bEGIN   (*3*) 

Li    do. array LindoJ *. tv.ptr  =  nil  THEM 
*KIlELN('no  temps  for  this  d.o.') 
ELSE  bEGIN  '  (*3,1*) 

temptv  :=  do.array  Undo] ".tv.ptr; 
WHILE  (temptv*. nxt  <>  nil)  and  not 

((temptv*. aa.id. trans. site.init. site  = 
insite)  and  ( temptv* .aa.id. trans-site 
.trans. nam  ='intr)  and 
( temptv*. aa.id, st. num  =  inst))  Du 
temptv  :=  temptv*. nxt; 
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IF  (temptv*.nxt  s  nil)  and  not  CCtemptv* 

,aa-ia. trans-site, init-site  s'insite)  dnd 
(temptv*,aa.ld.trans«site. trans  _n  urn  = 
mtr)  and  ( temptv*.aa.ia.st-num  =  inst)J 
THEN 

wsiTELN('no  sucn  temo  version  exists') 
ELSE 

IF  temptv*.  tv-cn.ptr 
tempt v* , tv-cn-ptr 
ELSE  BEGIN   C*3,4*) 
tempcn  :=  temptv' 
*HILE  tempcn*. nxt  <>  nil  DO 

temccn  :="tempcn*.nxt; 
tempcn*. nxt  :=  curcn; 
end;   C*3.4*) 
END;   (*3.1») 

end;   c*3») 


=  nil  THEM 
;=  curcn 

. tv-cn-ptr; 


end; 
END; 


:  BEGIN   (*C4*) 

curtr  ;=  trans-p 

IF  curtr  =  nil  X 

*RITELN('no  t 

*hile  (curtr*. nx 

trans-site 

Ccurtr* . tr 

curtr  :=  curt 

IF  (curtr*. nxt  = 

trans-site,  in 

. trans-site. t 

*KIIELNC 'tran 

'  tni 

ELSE 

BEGIN    (*C4.1 

IF  curtr*. 
curtr*. 

ELSE  BEGIii 

tempch 

WHILE  t 

temp 

tempcn* 

END;    (*c 

END;    (*C4.1 

END;    C*4,*)  ' 
(♦case*) 
C*l*) 


tr; 

HEN 

ran 
t"  < 
.in 
ans 
r*. 
nl 
it- 
ran 
sac 
s "  r 


ses 
>  n 
it- 

-si 

nxt 

1) 

sit 

s-n 
tio 
un' 


at  all'); 
ii)  and  not  (Ccurtr*. 
site  =  in site)  ana 
te.trans-num  =  mtr))  Du 

• 

9 

and  not  ((curtr*. 

e  =  in  site)  and" Ccurtr* 

um  =  mtr) )  ThEN 

n  does  not  exist  in', 

) 


tr 
tr 


em 
en 

2. 

*) 


ans-cn-ptr  =  nil  then 
ans-cn.ptr  :=  curcn 
C*C2.3*) 

curtr*, trans-cn-ptr; 
pen*. nxt  <>  nil  Du 

:  =  ~  tempen* .nxt ; 
xt  :=  curcn; 
3*) 


I  **  +  ***  + ********************************************** *****■) 
(♦  main  loop  for  concntv  *) 
BEGIN   (*i*) 
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rfHILE  not  eofcruntile)  DO 
oEGIN   (*wriiie*) 

READLNCrunf lie, en) ; 
If  en  =  *t"    THEN 

const-tempv(curtv 
ELSE 

IF  en  =  'c'    THEN 
3EGIN   (*if*) 
REAOLNCrunf 
case  tfhere 
1  :  6EGI 
READL 
const 
ada-c 


J 


END; 


END; 

2  :  3EGI 

READL 
K  £  A  Q  L 
READL 
const 
ada»c 

END; 

3  :  3EGI 

READL 
READL 
nEADL 
n'cADL 
const 
ada-c 

E  N  d  ; 

4  :  3EGI 

READL 
READL 
const 
add-c 

END 
END   (*case 
ENO   (*lf*) 
ELSE 

WRiTELNC'error 
lnd;   (*while*Jj 
(*!*) 


ile,wnere); 

of 
N 

N(run£iie, inval) ; 
-connist (curcn) ; 
onnist(curcn,Anere,invai,o,'xr, 
0,0); 

N 

N(r untile, in site); 
NCrunriie, intr ) ; 
N(runr,iie,inst); 
-connist (curcn) ; 
onnistccurcn, where, o,o, ins ite, 
xntr,inst); 

N 

H iruntile, indo) ; 
N (runtile, insite) ; 
N  ("runt He,  intr  ) ; 
N (run tile, Inst); 
-connist Ccurcn) ; 
onnist (curcn, wnere,o, indo, 
l n site, intr, inst); 

N 

lUruntiie, insite); 
N(runrii9, intr) ; 
-connist (curcn) ; 
onnist(curcn,*nere,u,u,insite, 
i  n  t  r ,  o ) ; 


*) 


on    runtile') 


PROCEDURE   print-tran-struct; 


HO 


(*  tnis  prints 
data.dat  *) 


out  tne  transaction  data  structure  to  tile 


VAR 


t  e  fr>  p  t  r 


ptr. trans; 


procedure  print. trcn  (nead.cn  :  ptr.ch); 

C*  tnis  prints  out  tne  trans  cont  nist  data  *) 


BEGIN 

IF  nead.cn  <>  nil  T 

BEGIN   (*it*) 

wixm  nead.cn* 

BEGIN   (*w 

W  R 1 1 E  L  H 

*RIT£LN 

WRITELN 

*RIT£LN 

WkITELN 
WRITELN 
WKlTELrt 
wRITELN 
tfRITELN 
•vRITELN 
*  R 1 1  £  L  N 
wRlTELN 

end;   (*wi 

WITH  nead.cn* 

BEGIN   (*w 

WkITELN 

WRITELN 


*RIT£LN 
WRITELN 
WRITEliN 

WRlTELN 

«RITELN 

WRITELN 

WRITELN 

WRITELN 

end;   (*wi 

print-trcnCne 

eno   (*ii») 

ELSE 

BEGIN 


HEN 
DO 

itn*) 
Caata , 
(data) 
(data, 

aa.id 
(aata, 

aa.id 
(data, 
(data, 
(data  , 
(data, 
(  a  a  t  a  , 
(data, 
(oata) 
(data) 
in*} 
.pair, 
ith*) 
(data, 
'aa.id 
(aata, 

aa. id 
(data, 
(data, 
(data , 
(data , 
(data , 
(data, 
(data, 
(data) 
in*) 
aa.cn* 


'a  trans  conf  hist  : 

init.site   ', 
trans-site. init.site 

trans. num   ', 
trans. site. trans. n urn 


4); 


4 ) 


st.num 

aa.nuin 

r-w.rig 

ao-iu 

cn.seq 

metric 


aa.id, st.num 
aa.id.  aa.nu.Ti 
aa.id.  r.j/.f  ia 
aa. id, ao. la  : 
aa.id. cn.seq 
aa.id .metric 


:4) 

:4) 

J4j 

4  j 

:*) 

l  4) 


ctr*  ou 

init.site   *, 
.trans.site.init.site  ;  4); 
'    trans. num   ', 
. trans.site, trans.num  :  4); 


s t.num 

aa.num 

r-w.tig 

ao.id 

cn.seq 

metric 

metric. sum 


aa. 

.id. 

St, 

.num 

J43 

aa. 

.id. 

aa.num 

:4) 

aa. 

.id. 

r.w.iig 

:4) 

aa. 

..id. 

0  0. 

.ia    : 

'  4) 

aa. 

.id. 

en. 

.sea 

:4) 

aa. 

.Id, 

metric 

J4) 

0 
i 

rffietricsum 

:4) 

.  n  x  t ) ; 
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WRITELNCdata) ; 

wRITELNCdata,  'end  of  tnis  trans  ccnf  hist  list'); 
*RITELNCdata,  »********i|s*jm***************¥*******j  ; 
rfRITELNCdata) ; 
END; 
end;   C*proc  print. trch  *) 

PROCEDURE  print. stch  cnead.cn  :  ptr.ch); 

C*  tnis  prints  out  tne  suo  trans  cont  nist  data  tor  a  eacn 
trans  *) 


BEGIN 


IF  nead.ch 

BEGIN   C*lf») 

*ITh  "nead.cn*  DC 


<>  nil  THEN 

in    v  *  i  t  *  ) 

»ITh  "nead.cn*  DC 
BEGIN   C*with*j 
WRITELNCdata, 
tfRITELN (data) 
aRITELNCdata, 

aa.id 
aRITELNCdata, 

aa.id 
^RITELNCdata, 
wRITELNCdata, 

«■  i>  T  T  m"  r .  m  ( r  .-t  .a  r  st  . 


end;      c*witn*) 

iITh   nead.cn* .pair.! 

BEGIN       C'witft*] 

WhITELfUdata, 

"aa.id 

wRITELNCdata, 

aa.id 

wRIIELNCoata, 

WRITELNCaata, 

^KlTELNCaata, 

wRITELNCaata, 

jj  Q  T  TFT  \I  f  Ha  f  » 


'a  suo  trans  cont  hist  :  *); 

init.site 
trans. site. init.site  :  4); 

trans. num   ', 
trans. site. trans. num  :  4); 


st. num   ' 

t 

aa.iu , st.num  :43 

a a. num   * 

/ 

aa.id.aa.num  :4) 

r.w-fig  ' 

/ 

aa.id. r.w.f la : 4) 

ao. la 

» 

aa. la. do. id  :  ~  <*  j 

cn.seq 

1 

aa.ia. cn.seq  ;*) 

metric 

t 

aa.ia. metric  :4) 

ptr*  du 

init.site   ', 
trans. site. init.site 
trans. num   ', 

trans. site. trans -num 


end;   c**itn*) 
rint.stchCnead.cn 
C*if*) 


4); 


4); 


st. num 

aa.num 

r-*-£ig 

do.ia 

cn.seq 

metric 

metric-sum 


END    C*lf*) 


.  n  x  t  J ; 


:4) 

:4; 


aa.id . st. num 
aa.ia. aa. num 
aa.id. r.w.f ig : 4j 
aa.ia. do. la  :  4} 
aa.ia. cn.seq  :4) 
aa.id. metric  :4j 
' ,metrlc.sum;4) 
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end; 


ELSE 

BEGIN 

wfilTELNCdata) ; 

WRITELNCdata,  'end  this  sue  trans  conf  hist  list'); 

*RIT£LNl'aata, '**********************************") ; 

wRITELNCdata); 
END; 
C*proc  st*) 


PROCEDURE  print. aa  Chead. aa    :  ptr-aa); 

C*  tnls  prints  tne  aa  data  for  eacn  sub  trans  *) 


BEGIN 
IF 


nead.aa  <>  nil  Th 

BEGIN   (*if*) 

wITri  neaa.aa* 

BEGIN   C*Wl 

WRITELNC 

WKITELNC 

*RITELNC 


rtRITELNC 


EL 


END; 


WR 
*W 
rtR 

MH 

MR 
WR 

*K 
*H 
WK 
,VR 
*R 
«R 

end; 
print. aa 

END    C*lf* 
S£ 

BEGIN 

WRITELMC 
MRITELNC 
aRITELNC 
WRITELMC 

end; 

C*proc  aa*) 


ITELNC 
ITELNC 

ITEuNC 
ITELNC 
ITELNC 
ITELNC 
ITELNC 
ITELNC 
ITELNC 
ITELNC 
ITELNC 
IIELNC 
C*wlt 
Cnead. 
) 


EN 
DO 

tn*) 

data, 

data) 

aata, 

aa.id 

data, 

aa.ia 

data, 

aata, 

data, 

data, 

aata, 

aata, 

aata, 

aata , 

aata, 

data, 

aata, 

data) 

n*) 

aa*.n 


'an  atomic  action 


J  ; 


ini 

trans. s 
tran 

trans.s 
st.n 
aa.n 
r.w- 
ao.i 
ch.s 
metr 
stat 
time 
step 
have 
in.loc 


xt); 


t.sit 

ite.i 

s.num 

ite.  t 

um  ' 

urn 

tig 

a 

eq 

ic 

-val 

-num 

-lOCK 

kq-fl 


e 

nit. site 


4)  ; 


rans 

,  aa 


aa 
aa 
aa 
aa 
aa 
st 
t 
s 


d',i 


.num  :  t ) ; 
.id.  st -num 
.id*  aa.nujp 
-id.r.w.fig 
-ld.ao.ia  : 
-id.cn. seq 
-id, metric 
at  :  4); 
iroe-val  :  4 
tep.num  :  4 
nave. lock  : 
n.locKo-f lq 


:4) 
:<*) 

4) 

:4) 
!4) 

) ; 
)  ; 

bj  ; 
:b) ; 


data) ; 
data, 
data, * 
data) ; 


'end  of  tnls  atomic  action  list') 

********************************* 


»')  ; 


C  -*t*********  *  *********  *  *♦?***!  *************  *  ****************) 
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procedure  print. subt  (head-st  :  ptr-strans); 

(*  tnis  prints  tne  sub  trans  structure  tor  a  trar.s  *j 


BEGIN 
IF 


(*Droc  s 

nead-st  < 

oEGIN   (* 

WITH  n 

5EG 


END 

print- 
print- 
print- 

END      C*If 
ELSE 

tJEGIN 

dRITEu 
*RIT£L 
«  R I X  £  L 
*RITEL 

END; 

end:   c*proc  st 


*) 

n 
f  * 

ad 

u 

Ki 
Kl 

HI 
RI 
RX 
Ri 
KI 
Ri 
Ki 
RI 

a( 

tc 

UD 

) 


11 
) 

-St 
(» 

TEL 
TEL 
TEL 
TEL 
TEL 
TEL 
TEL 
TEL 
TEL 
TEL 
C*w 
tiea 
ncfi 
t(n 


THEN 
-  DO 

with 
N(oa 
n  (aa 
N(aa 
NCda 
N(ca 
N  (aa 
N('aa 
WCaa 
M(da 
WCda 
ith* 
d-st 
eaa- 
eaa- 


*) 

ta) 

taf 

ta) 

ta, 

ta, 

ta, 

ta, 

ta, 

ta, 

ta) 

) 

"•a 

st" 

st- 


a    sud    transaction 


r); 


st-ia 

aa-oty 

aa-tr-qty 

exec-fig 

torfc-flg 

metric-sum 


' , st-ld 

'  ,aa-qty 
,a«-tr-qty 
* , exec-flu 
' , torfc-f lg 
' ,  metrics 


4) ; 

4) ; 

4) ; 

5)  ; 

5) ; 

un 

:4j ; 

a-ptr ) ; 

,sc-ch-ptr) ; 
•nxt); 


(data) ; 

(data,  'end  of  sub  trans  list,  tnis  tr 

(data, '*+******************** ********* 

(data) ; 


ans ' ) ; 

*  *  *  '  j  ; 


*) 


(**********************************************************) 

PROCEDURE  print-tran  Cnead-tr  ;  ptr-trans); 

C*  tnis  prints  out  transactions  in  tne  aata  structure  *) 

begin   (*proc  tr*) 

IF  nead-tr  o'nil  rHEN 
BEGIN   (*if*) 

WITH "nead-tr-  DO 
BEGIN    (*with*) 
WRiTELNCdata) ; 

*KlTELN(data, '****************************'); 
wKlTELNCoata, 'a  transaction  :  * ) ; 
*RITELN(aata, '****************************  * ) ; 
*KITELNC'aata, '    st-qty     ',st-qty  :  4); 
*RITEL*(aata, '   exec-fig    ',exec-flg  :  5); 
*RIT£LN(data, '   st-tr.qty   ' , s t-tr-qty ~ :  4); 
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••RITELNCaata,"        init-slte      ', 

trans-site.mit-site    :    4j; 
*KllELN(data,    '        trans-nun    ', 

trans-site. trans-num    :    4); 
aRITELNCdata) ; 
END;       C*witn*j 
print- trcn(neaa-tr* . trans-cn-ptr) ; 
print-suDt(neaa-tr*,st-ptr) ; 
print-tranCneaa-trSnxt  3 ; 

END   (*i£») 
ELSE 

BEGIN 

WRiTELNCaata) ; 

wRITELNCdata,  '*******************************♦**';  ; 

wRlTtLNCdata,  'end  of  transactions   *); 

WRIT£LN(data#  ***************** ******************'j  ; 

WRITELN(data) ; 
END; 
end?   (*proc  tr*j 

(*  Tiain  loop  for  print-trans-struct  *) 

begin   (*main*j 

teraptr  :=  trans-ptr; 

print-tranCtemptr J ; 
end;   C*main*J 

(**f*?*^***f***************** ********************** ***♦****) 

(ft*****************************?**************************) 

PROCEDURE  print-do; 

(*  tnis  procedure  infill  output  co  file  "data'  tne  aata  object 
structure  *j 

VAR 

i  :  integer; 
temp-ch-ptr  :  ptr-cn; 
temp-tv-ptr  :  ptr-tv; 
temp-iocKq-ptr  :  ptr-locK-q; 

BEGIN 

FOR    i  :=  1  TO  99  DO 

IF  do-arrayCiJ  0  nil  THEN 
BEGIN 

aRITELN  (data); 

aRITELn  (data); 

WRITELN  (data,  ******   do-array  L',i:2,'J   *****-); 

aRITELn  (aata); 


115 


(*   output   do.perm.rect 
with   do.arrayUJ*    DC 

BEGIN 


*) 


WRITtLN 
fcRITELN 
"RITELN 
WRITELN 
WRITLLN 
WRITELN 
kRITeLN 
WRITELN 


(data, 
(data, 
(data, 
(data, 
(data, 
(data, 
(data, 
(data) ; 


no. reads  : 

* ,  no. re 

a  a  s  )  ; 

no. writes 

:  ' ,  n  o  -  w 

rites) 

Iock  :  ', 

Iock) ; 

n.cnt " :  ' , 

n-.cn t) ; 

s-cnt  :  ', 

S-cnt) ; 

locx-qty  : 

',  Iock- 

qty); 

cn.seq  ;  * 

,  cn.seq) 

t 
f 

C*  output 
WRIIELN  (d 
wKITELN  (d 

temp.cn.pt 
wHiLt  temp 

9999 

bEGIN 

*ITH  t 

BEGI 

WR 

*K 

WR 
MR 
MR 
MR 
*R 
MR 

*R 

wi 


tne  do-perm  conflict  nistory  *) 
ata,'**  ao-perm  conflict  nistory  **'); 
ata) ; 
r  :=  ch-ptr*.nxt; 

.cn.ptr*,aa-ia.trans.site,trans.num  <> 


emp.ch.ptr 

N 

ITELNCdata 

.  tra 
ITELNCdata 

,  tra 
ITELNCdata 
ITELN (data 
ITELNCdata 
ITELNCaata 
ITELNCdata 
ITELNCdata 
ITELNCaata 
Th  pair-pt 
BEGIN 

*RITtLN( 

wRITELN ( 

aRITEbwC 

WRITELNC 

WRITELNC 

wRITELNC 
WRITELNC 

WRITELNC 

wRITELNC 


*  DC 

,'mlt.site  :  ',aa„ia 
ns. site. in  It- site); 
,  'trans-nuM  :  ',aa-ia 
ns-site. trans -n urn) ; 


'st-num 

'aa-num 
'r-w.f ig 
'ao-id  : 
'ch-seq 
'metric 

t 
9 

*  DU 


'  ,da.ia,  st.nutT)  ; 

' , aa.id,aa-nun ) ; 
: ' ,aa-id.r-w-f ig) ; 
' , aa-ia .do-ic J ; 

'  ,aa.la. cn.seq) ; 

' ,aa.ia. metric ) ; 


data,  'init-site  :  ',aa-id 

, trans-site, init-site); 

data,  'trans-num  :  *,aa. id 

,trans-slte, trans -num) ; 

data,  'st-num  :  ',  aa-id 

, st-num) ; 

data,  'aa-num  :  ',  aa-id 

.aa-num) ; 

aata,  T-w.fig  :  ',  aa-ia 

. r-w-f lqj ; 

aata,  'do-la  :  ',  aa.ia 

,ao-ld) ; 

data,  'cn-seq  :  ',  aa-id 

,cn-seq) ; 

aata,  'metric  :  ',  aa-ia 

.metric) ; 

aata,  'metric. sum  :  *, 
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metric-sum) ; 

END 

end;   (*  while  *) 
tfRITELfl  (data); 
WRITELN  (data); 

temp-cn-ptr  :=  temp„.ch-ptr*.nxt 
end; 


(*  output  t 
WRITELN  (da 
wRITfciift    (aa 

*RITELN  (da 

temp-tv.ptr 

*H1L£  temp. 

BEGIN 

WITH  te 

BEGIN 

wRI 

wRI 

WRI 


ne  temp  versions  *) 

ta) ; 

ta,  '*****  temporary  versions  *****'; 

ta); 

:=  tv.ptr; 
tv-ptr  <>  nil  DO 

mp-tv-ptr*  CO 


TELN 
IELN 
TELN 


rfRITELN 


wRl 
*RI 
*KI 
wRI 
WRI 
WRI 
akI 
wRI 
*KI 


TELN 
TELN 

TELN 
TELN 
TELN 
TELN 
TELN 
TELN 
TELN 


(data, 
(data j 
(aata , 

.  tran 
(data, 

•  tran 
(data, 
(aata, 
(aata, 
(aata, 
(aata, 
(data, 
(aata, 
(aata, 
(data) 


'*  temp  version  aa-ia  *'); 


'mi 

3_S1 

'tra 
s-si 

'St. 

'aa- 
'r.w 

'dc- 
'cn- 
'met 
'met 
'sta 


t-slte 
te.init 
ns.num 
te. trans 
num  :  ' 
num  :  ' 
-£la  :' 
iu  :  ', 
seq  :  ' 
ric  :  ' 
ric-sum 
t-tid  : 


'  ,aa-id 
site) ; 

"  ,  da-ia 
-num) ; 
aa-ia. st-num) 
aa-ia .  aa-num) 
aa.id, r-w.f ig) 
aa-id. do-id j ; 
ad.ia ,cn-sea) 
aa-ia. metric) 
:  ' ,  rue  trie-sum) 
'  ,stat-tla) ; 


(*  output  t 
WRITELNCdat 

*RITELN(dat 

'  n 

temp.ch-ptr 

wHluE  temp- 

BEGIN 

wITH  te 

BEGIN 

wRI 

WRI 

WRI 

WRI 

WRl 


emp  version  conr  nistory  *) 
a); 

a/'*****  temo  version  cont', 

1st  *****'); 

:=  tv.cn.ptr; 
cn-Ptr  <>  nil  DO 


mp-ch-ptr 


DO 


TELN(aata) ; 

TELn (aata, 'inlt-site  :',aa-id 

.trans-site.imt-site); 
TELN (data, 'trans-num  :',aa-ia 

,trans-site.trans-num); 
TELN (aata, 'st-num  :  ',  aa.ia 

.st-num) ; 
TELN (data , 'aa-num  :  ',  aa-id 

,aa-nurr. ) ; 
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WRITE 
WRITE 

write 

WRITE 


WR 
wl 


e 

WRI 
*RI 

tem 
END 

end;   c* 

wRITELN  (da 

temp.tv.ptr 
end;   c*  wnii 


EN 

nd; 

TEL 
TEL 
P-C 

c* 

wit 
ta) 


ITE 
TH 
»  R I 

a 
*Ri 

a 
*Rx 

a 

a 

a 

wRi 

a 

*Ri 

a 

rtRl 

a 
*Ri 

m 

D 

( 
N  ( 
ft  C 

n.p 
whi 
n  t 


Ln (aat 

.r. 

LN(dat 

.do 
Lr.  (aat 

.en 
LNCaat 

•  me 
LNCaat 
pair.p 
TELNCa 
a.ia, t 
TELi* 
a.ia 
TcLN 
a.ia 
TtLN 
a.ia 
TtLN 
a. id 
TELN 
a.ia 
TELn 
a.ia 
TEL  ft 
a.ia 
TcLi* 
etne- 


a,'r 

w.f  l 

a,  'd 

.id) 

a,'c 

-seq 

a,  'm 

trie 

a); 

tr* 

ata, 

rans 

ata, 

rans 

ata, 

t.nu 

ata, 

a.nu 

ata , 

.w.f 

ata  , 

o.id 

ata, 

n.se 

ata, 

etri 

ata, 

sum) 


-w.tlq  :  ',  aa.id 
g); 

o.ia  :  * ,  aa-i d 

■ 

h.seq  :  * ,  «d_id 

); 

etric  :  ',  aa.id 
); 

DU  otCilN 

'init.slte  :  ', 

.site. init.site) ; 

'trans .num  :  *, 

-site,  trans. nurr) ; 

'st.nun  :  ', 

nO  ; 

'aa.nun  :  * , 

mj ; 

'r.w.iig  :  *, 

ig); 

'ao.ia  :  * , 

); 

'en. sea  :  ', 

a); 

'metric  :  '/ 

c); 

'metric.sum  :  ', 


*  witn  temp.cn.ptr  *) 

data) ; 

data); 

tr    :=   temp.cn.ptr" . nxt 

le    *) 

eiup.tv.pt  r    *) 


=    temp.tv.ptr* ,nxt 


e    *) 


*  *  Jf.  *  *  -  )   ; 


C*  output  tne  lock  aueue  *) 
wRiltLN  (data); 

*RITELN  ("data,  '*****   locx  queue 
WRiTELN  (aata); 
temp.ioctcq.ptr  :=  loc<-a.ptr; 
while  temp.locxq.ptr  <>  nil  DO 
dEGIN 

aITH  temp.ioc<q.ptr*  DU 
BEGIN 

*RIT£LN(data,  '*****   locx.q  aa.id', 

rtRirELN(data) ; 


lia 


END 


KRITELNCda 

,t 
v»RifELN(da 

.t 
*RITELN(aa 
*RlTELiHda 
atflTELN  (da 
WRITELN (aa 
wRlTELNCda 
aRITELn (da 
wRITELN(aa 
ternp.locKd 
end  c*  wltn 
(»    wnile   *) 


ta,  'lnl 
rans.si 
ta, 'tra 
rans.si 
ta,  'st- 
ta,  'aa- 
ta, #r.w 
ta, 'ao- 
ta,'ch- 
ta, 'met 
ta); 
-Ptr  := 
temp.l 


t.slte    :    ',aa.ia 
te.lnit.site) ; 
ns.num    ;    ',aa-id 
te. trans. num ) ; 
num    j    *,aa»id,st«n 
num    :    ',aa.id.aa.n 
.tig    :  * ,aa.la.r.w. 
id    :    ' ,aa.ia.ao.ia 
seq    :    ',aa. id. cn.s 
ric    :    *,aa«id,metr 


urn)  ; 
urn); 
fig); 

); 

eq) ; 
ic)  ; 


temp. locKcj. ptr*.  nxt 
oc<q.ptr  *) 


end   (*  with  do. array  *) 
END   (*  if  tnen  *) 


end: 


PROCEDURE  print. aic; 

(*  tnis  procedure  outputs  to  file  'data'  the  data  dictionary 
structure  *) 

VAR 

1  :  Integer; 

temp. die. ptr  %    ptr.dic; 

BEGIN 

•iKITELN  (data); 

writeln  (cata); 

aPITELN  (aata); 

for  l  :=  o  to  yy  do 

IF  die. array  tiJ  <>  nil  then 
BEGIN 

wRlTELN(aata) ; 

*RITELN(data, ******  dic.array  [',i:2,'j  *****'); 

wRITELN(aata) ; 

temp. die. ptr  :=  die-array  lij; 

REPEAT 

WRITE  (data,  "   ',  tef.ip.aic.ptr*  .  site,  id  ) ; 
temp. die. ptr  :=  temp. aic. ptr*. nxt 
UNTIL  temp. aic. ptr  =  nil; 
dRITELN  (data) 
END 
END; 

(***********************»**********************************) 
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,;*X*»«*«*^»«**********^*************»************.f**-r^S-r*ij 


CGLGBALJ 
PROCEDURE 


prselect; 


C*  this  is  a  utility  print  routine  for  all  internal  aata 
structures  allows  a  user  to  select  wnicn  aata  structure 
to  print  *) 


VAR 


i,insel  :  inteaer; 


BEGIN 
i 

wR 

*R 
«R 
*R 
WK 
*R 
*R 
*H 
*R 
*R 
re 
ca 


:=  0; 
ITSLN 
ITELN 
ITELN 
ITELN 
ITELN 
ITELw 
ITELN 
ITiLN 
ITfiLN 
ITELN 
ITELn 
ad. in 
se  in 

1  : 

2  : 
i  : 
4  : 


5  : 


('select  wnicn  printout  you  want'); 


CM 
C'2 
('3 
C'4 
C*5 
Cfc 
C*7 
C#8 
Cent 
teger 
sel  o 
print 
print 
print 
BEGIN 
pr 
pr 
end; 

BEGIN 

pr 
?r 

END; 
BEGIN 

pr 
pr 

end; 

bEGlN 
pr 
pr 
pr 

end; 

i  :  = 


tr 
oa 

tr 

tr 

da 

al 

no 

er 

(in 

f 

-tr 
-do 
-ao 


ans-structure* ) ; 
ta.oD^ect  structure'); 
ta-dictionary  structure'); 
ans  and  data-ob}'); 
ans  and  aata  ale'); 
ta  oP]  and  aata  die'); 
1  tnree'); 

'); 

integer  answer'); 
1); 


ne 
an 
se 


an-struct ; 


int-tran-struct; 
lnt-do; 


int-tran-struct; 
int-dic; 


int. die; 
int-do; 


int-tran-struct; 

int-dic; 

int-do; 


l; 


END;   (*case*) 
END;    C^proc*) 
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END,   C*  module  B  *) 


(.INHERIT  ('builds. pen')  J 

PROGRAM  algo.test  C Input , output , audit , data , runf lie , 

trans,datadic,dobj); 

VAR 

3 , time. delay ,  i  :  integer; 

seea  :  unsigned; 

en  :  char; 

stoprun  :  boolean; 

purge. list. ptr, tvi. purge  :  ptr-ch; 


IEXTSRNAL] 
PROCEDURE  Dldtx; 

extern; 
[.external] 

PROCEDURE  blddlc; 
EXTERN; 

[EXTERNAL] 
PROCEDURE  blddo; 
EXTERN; 

[EXTERNAL] 

PROCEDURE  enter-time. delay  (vak  time. delay  ;integer); 

extern; 

[EXTERNAL] 

PROCEDURE  enter-random. seed  C^/AR  seed  :unsignea); 

extern; 

[EXTERNAL] 

PROCEDURE  checx.stop  (VAR  stoprun  :  boolean;  en  :  char); 

EXTERN; 

[EXTERNAL] 
PROCEDURE  bldcntv; 
EXTERN; 

[EXTERNAL] 
PROCEDURE  savchtv; 
EXTERN; 
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[EXTERNAL] 

procedure  concntv; 
extern; 

iexiernal] 

PROCEDURE  prseiect; 
extern; 

LEXIERNAL] 

FUNCTION  MTHSRANdom  (VAR  seed  :  unsigned)  :  real; 

EXTERN J 

[EXTERNAL] 

PROCEDURE  add. n. and. t  (VAR  cur.cn.ptr  :  ptr.cnj; 
extern; 

(********  +  ***** ******  ******  ********************** **********) 
(**********************************************************•) 

PROCEDURE  select. trans  CVAH  seit. nave. aa  :  boolean; 

VAR  seit. trans. ptr  ;  ptr. trans; 
VAR  seed  :  unsiqnea); 

C*  this  procedure  will  ranaorrly  select  tne  next  transaction 
to  De  worKea  on  wltnin  tnose  wnicn  riave   already  oegun 
execution  and  tne  next  one  in  tne  lin«:ea  list  ot 
transactions  *) 

VAR 

temp. trans. ptr  :  ptr. trans; 
1,  tnrow  :  integer; 

BEGIN 

IF  trans. ptr  =  nil  THEN 

seit. nave. aa  :=  false 
ELSE  BEGIN 

seit. trans. ptr  :=  trans. ptr; 
1  :=  1; 

C*  set  i  =  no.  ot  trans  already  executinq  +  1  *) 
»iriILE  seit. trans. ptr  o  nil  uO 
BEGIN 

IF  seit. trans. ptr" .exec. tig  =  true  then 

1  :=  i  ♦  l; 
selt.trans.ptr  :=  seit. trans. ptr* .nxt 
END; 

(*  call  random  number  generator  tor  integer  1  ->  i  *) 
tnrow  :=  CTRUNCC CMTHSRAwOGMCseed) )*10QUU0) j  MOD  i  t  l; 

(♦  select  tne  trans  *) 
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seit-trans-ptr  :=  trans. ptr; 
for  l  :=  l  10  (throw  -  l)  du 

IF  selt-traris-ptr*.nxt  <>  nil  THEN 
selt-trans-ptr" :=  seit-trans-ptr1 


.  n  x  t ; 


(*  flag  the  trans  as  "executing"  *) 
selt-trans-ptr*. exec-fig  :=  true 
END   (*  ELSE  *} 
END; 


PROCEDURE  select-st 


iVArf  sels-nave-aa  :  boolean; 
sels-trans-ptr  :  ptr-trans; 
VAR  sels-st-ptr " :  ptr-strans; 
VAR  seed  :  unsigned;; 


(*  This  procedure  win  randomly  select  tne  next 

suDtransactlon  to  worK  on  within  a  given  transaction. 
Those  *hicn  have  ail  tneir  atomic" actions  as  t(r)  are  not 
considered;  neitner  are  tne' suotransactions  which  are 
forxea  to  another  site  *) 

VAR 

i,  throw  :  integer; 
sels-temp-ptr  :  ptr-aa; 
nave-st  :  ooolean; 

BEGIN 

IF  seis-trans-ptr*. st-ptr  =  nil  then 
sels-have-aa  :=  false 

ELSE  BEGIN 

(*  call  number  generator  for  integer  l->no.  of  st's  *3 
thro*  :=  CTRUNC  ( CrfTHSftANDGM  (seed)}  *  100000DJ 

mud  sels-trans-ptr*. st-oty   +  l; 

C*  select  tne  suDStrans  *) 
sels-st-ptr  :=  seis-trans.ptr*,st.ptr; 
FOR  1  :=  1  TO  Ctnrow  -  1)  DO 

sels-st-ptr  ':=  sels-st-ptr*, nxt; 

(*  cnecK  IF  subtrans'  aa's  are  all  finlshea  *) 
sels-temp-ptr  :=  sels-st-ptr*.aa-ptr; 
nave-st  :=  false; 
rtttiLE  sels-temp-ptr  <>  nil  DO 
BEGIN 

IF  sels-temp-ptr* .step-num  <  14  THEN 

have. st  :=  true; 
sels_temp-ptr  :=  sels-temp-ptr* ,nxt 
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end; 

IF  (sels.st. ptr*. fork. fig)  or  CNUT  have^st)  fhEN 

sels. nave. aa  :=  false 
ELSE 

sels. st. ptr*. exec. f Id  :=  true 
END 
END; 

^  ********  tX****************************?************.*******.) 

PROCEDURE  tind.aa  Cinit.site  ;  cnar; 

"trans. num,  st.num,  aa.num  :  integer; 
VAR  out.aa  ;  ptr.aa; 
var  out. st  ;  ptr-strans; 
</AR  out.tr  ;  ptr. trans); 

C*  Tnis  recursive  proc  returns  tne  pointers  to  tne  requested 
atomic  action, sub  transaction  and  transaction.   if  tne 
proc  cannot  flna  tne  entity  requestea  anil  value  is 
returned  in  tne  oointer.  *) 

VAR 

temptr  :  ptr. trans; 

PROCEDURE  aa. find  Cout.aa.ptr  :  ptr.aa); 

(*  tnis  attempts  to  tinti  tne  input  aa  «) 

BEGIN 

IP  out.aa. ptr  <>  nil  then 

IF  out.aa. ptr*. aa. id. aa.num  a  aa.num  then 

out.aa  :=  out-aa.ptr 
ELSE 

aa.f i nd(out.aa.pt r* .  nxt ) 
END;   C*proc  aa   find*) 

PROCEDURE  fino.st  (out.st.ptr  :  ptr.strans); 

(*  tnis  attempts  to  find  tne  input  sub  trans*) 

BEGIN   (*proc  st*) 

IF  out.st.ptr  <>  nil  THEN 

IF  out.st.ptr*. st-id  =  st-num  THEN 
BEGIN 

out.st  J=  out.st.ptr; 
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aa.find  Cout.st-ptr* .aa.ptr) 
END 
ELSE 

find. st  (out.st.ptr* .nxt ) 
END;   (*proc  st*) 

PROCEDURE  find-tr  Cout.tr. ptr  :  ptr. trans); 

C*  tnis  attempts  to  find  tne  input  trans  action  *) 

BEGIN   (*proc  tr*) 

IF  out-tr.ptr  <>  nil  then 

IF  (out. tr.ptr-. trans-site, init.site  =  init.site)  ana 
(out. tr.ptr*.  trans-site,  trans. num  =  trans. num)  IHEN 
BEGIN 

out.tr  :=  out-tr-ptr; 
tind.st  (out-tr-ptr*, st. ptr) 
END 
ELSE 

flnd.tr  (out-tr.ptr*. nxt) 
END;   (*proc  tr*) 

(*  main  program  for  find. aa  *) 
BEGIN   (*main*) 

out.aa  :=  ml; 

out. st  :=  ml; 

out.tr  :s  nil; 

temptr  :=  trans. ptr; 

f ind.trCtemptr) ; 
END;    (*main«) 

(ft****************************************** **************) 

PROCEDURE  select. aa  (VAR  sela-nave.aa  :  boolean; 

'var  sela. trans. ptr  :  ptr.trans; 
VAk  sela. st. ptr  :  ptr.strans; 
vah  sela.aa.ptr  :  ptr.aa; 
VAR  seea  :  unsigned); 

(*  Tnis  procedure  selects  tne  next  atomic  action  to  *orK  on. 
If  tne  re. execute  list,  wnich  is  an  input  to  tms 
procedure,  is  not  empty  tnen  tne  atomic  action  to  oe  next 
executed  is  tascen  from  tnat  list."  if  tne  list  is  empty 
tnen  a  ranaora' numoer  generator  will" provide  a  ^eans  for 
selecting  tne  atomic  action.  ♦) 
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VAR 


1  :  Integer; 
sela.disoose.ptr 


ptr.reexec; 


BEGIN 

se 

IF 


la.na 
reex 
(*  e 
BEGIN 

f ind„aa 


ve.aa 

ec„ptr 
xecute 


=  true; 

<>  nil  THEN 

next  aa   from 


re. execute  list  *) 


EL 


(reexec.ptr*,init.site,  reexec.ptr 
•  trans. num ,  reexec-Dtr", st.num, 
reexec.ptr*.aa.num,  seia.aa.ptr, 
sela.st.ptr,  sela.trans.ptrj; 
sela.dlspose.ptr  :=  reexec.ptr; 
reexec.ptr  :=  reexec-ptr*. nxt; 
DISfc>uSE  Cseia. dispose. ptr) ; 
IF  sela. trans. per  =  nil  Then 

sela. nave. aa  ;=  false 
ELSE  IF  sela.st.ptr  =  nil  TnEN 

sela. nave. aa  :=  false 
ELSE  IF  seia.aa.ptr  =  nil  Then 
seia.nave.aa  :=  false 
END 
SE 
C*  "randomly"  select  next  aa  *j 

BEGIN 
C 
S 


*  select  tne  transaction  to  fce  next  *orfced  en  *) 
elect. trans  (seia.nave.aa,  sela.trans.ptr ,  seea); 


C*  If  tnere  are  sustransactions  yet  to  complete 
execution,  tnen  randomly  select  one  *itnin  tne 
aoove  selected  transaction  *) 

If  seia.nave.aa  IHEN 

select. st  (sela.f.ave.aa,  sela.trans.ptr, 
'sela.st.ptr,  seed;; 

C*  witnin  tne  acove  selectea  suotransaction ,  if 
an  atomic  action  is  yet  to  f  inisn ,  '  *otk   on 
that,  else  *or<  on  tne  next  one  ♦) 
IF  seia.nave.aa  then 
BEG  In 

seia.aa.ptr  :=  sela. st. ptr*. aa. ptr ; 
WHILE  seia.aa.ptr* .step.num  =  14  DO 
BEGIN 

If   seia.aa.ptr*. nxt  =  ml  Then 

WKITELN  caudit, 'EHKOK  :  select. aa  r, 
"'is  trying  to'select  next*, 
'ad   wnen  none  are  tnere'); 
sela.aa.ptr  :=  sela. aa. ptr*. nxt 
end; 
C*  IF  aa  is  in  lock  queue  don't  select  it  *} 
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IF  seia.aa.ptr*.in-lockq.flq  =  true  THEN 
seia.nave.aa  :=  raise 
end;   (*  if  then  *j 


£ND; 


IF  seia.nave.aa  THEN 

(*  output  wnicn  aa  was  selected  *) 
BEGIN 

WRITELN  (audit,  *aa  selectea  tor  execution  is  :'); 
WRITE  (auait,  sela.aa.ptr* 

.aa.ia. trans. site. init.site  :  2); 
WRITE  (audit,  sela.aa.ptr~ 

.aa.ia. trans. site. trans.num  :  2); 
*RITE  (audit,  sela.ad.ptr* 

.aa.id.st^num  :  2) ; 
WRITE  (audit,  sela.aa.ptr~ 

.  aa.ia  .  aa.num  :  2)1 
WRITELN  (audit); 
END 
END; 

FUNCTION  locked  (donum  :  integer)  :  Doolean; 

(*  tnis  tests  a  d,o.  to  see  if  it  is  locked  *) 

BEGIN 

locked  :=  do. array  [donumj  *  .  loc<; 
END; 

PROCEDURE  time. out  (time. delay  :  inteder; 

time.aa.ptr  :  ptr.aa); 

(*  this  produces  tne  tiffle  out  period  for  aas  *nicn  are 
locxed  out  oy  manipulating  a  tield  in  tne  aa   recora  *j 

BEGIN 

time. aa.ptr~ .time. val  :=  t ime.aa.ptr* . time.val  +  l; 

WRITELN  (audit,  'this  aa  is  in  time  out  !"); 
*RITE  (audit, time.aa-ptr~.aa. id 

•trans. site. inlt. site  :  2); 
WRITE  (auoit, time.aa.ptr*. aa. id 

•  trans. site. trans-num  ;  2); 
WRITE  (audit, time.aa.ptr~.aa.id 

.st.num  :  2); 
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*RIT£  (audit ,  time.aa.ptr*  ,aa. id 

. aa.num  :  2); 
*RITELN(auditj; 
END; 

PROCEDURE  acquire. locK  (donum  :  integer; 

aco.st.ptr  :  ptr-strans; 
acg-aa.ptr  :  ptr.aa); 

(*  Tnis  loc<s  trie  target  do  ana  formats  a  msg  tor  every  site 
at  which  the  do  is  replicated.  If ' tne' target  ao  is  not  at 
this  site,  this  proc  sets  tne  suo  trans  tig  as  forxing  ana 
packages  tne  sud  trans  travel  msg.  *) 

BEGIN 

(♦insure  tne  data  obj  is  in  use*) 

(*msg  for  forKlng  suo  trans  &  replicatea  data  for  Iocks*) 

IF   dicarray  [donum]    =  nil   TnEts 

wrtlTELN  (audit ,  'Iock  atten.pt  on  a  data  obj  not  usea* 
, donum) 
ELSE 

IF  do. array CdonumJ *. locK  THEN 

*RITELN(audit , "attempt  to  Iock  a  locked  d.o,  :  ' 
,donum  :  4) 
ELSE 

BEGIN    (*1.1*) 

do. array Cdonumj * . locx.oty  ;  =  u; 
ao. array idonumJ *, Iock  :=  true; 
*RITELN(audlt ,  'locking  data  obj*, donum.  :  4); 
acq. aa.ptr*, have. lock  :  =  true; 
E*d;   (*l.l*J 
end;    (*acquire.lock*j 

FUNCTION  is. at. site  (donum  !  integer)  :  ooolean; 

(*  this  returns  true  it  tne  data  ODject  citea  cy  donum  is  at 
this  site,  false  if  it  is  not  *) 

VAR 


curalc  :  ptr.dlc; 

BEGIN 

is. at. site  ;=  false; 
curaic  :=  dicarray  [donumj ; 
*hILE  curdle  <>  nil  DO 
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BEGIN 

IF  curdle*, site. id  a  dic-array[Q] 

is. at. site  ;=  true; 
curdic  :=  curdic*,nxt; 

end; 


.site. ia  THti 


END; 


PROCEDURE  loadtv  (ao.id  :  integer; 

load.tv.ptr  :  ptr-tv; 
ioad.st.ptr  :  ptr.strans; 
load-aa-ptr  :  ptr-aaj; 

C*  this  loads  tne  ne^ly  created  terr.c  ver  oointed  to  Dy 
load.tv.ptr  *itn  oata  pointed  to  oy  ioaa-aa.ptr  and 
ioad.st.ptr  *) 


BEGIN 
load. 

load. 

load. 

load, 
load, 
load, 
loao. 
load, 
load, 
load. 

load. 


tv. 

io 

tv. 

10 

tv. 
tv. 
tv. 
tv. 
tv. 
tv. 
tv. 

St. 
10 

tv. 


ptr" 
ad. a 
ptr* 
ao.a 
ptr* 
ptr* 
ptr* 
ptr* 
ptr~ 
ptr* 
ptr- 
ptr* 
ac.s 
ptr* 


,  aa. 
a.pt 
,aa. 
a.pt 
.aa. 
.aa. 

•  aa^ 

•  aa. 

•  aa. 
« aa. 
.nxt 
.net 
t.pt 
.met 


id.tr 
r*.aa 
id.tr 
r*.aa 
id. st 
id.aa 
io.r. 
io.do 
id.cn 
id. me 
:=  n 
rlc.s 
r*..T.e 
ric-s 


ans 
-id 

ans 
-id 

-  *  - 

-id 
-se 
tri 
il; 

tri 
um 


e.init.site  := 

ns.site.init.site; 
e.trans-num  := 
ns-slte.trans-num; 


-sit 
.  tra 
-sit 
.tra 
m  :  = 
n>  :  = 
19 

• 

d 

c 


:=  load-aa.ptr* ,aa. id. metric  + 

c.sum; 

:=  load-  s  t.ptr*  .  metric,  surr ; 


C*update  ch-seq  in  do  perm,  place  in  new  tv  recoro*j 
do. array Cdo.ioJ ".cn-seq  !=  do.array Ldo.idj * .  cn.seq  t  l; 
load.aa.ptr~.aa.id.cn.seq  :=  do.array Ldo.idj * .cn.seq; 
loaa.tv-ptr^.aa. id. cn.seq  :=  qo-array ldo.idj *. cn.seq; 
End; 

(* *******  +  ************ *******  ******************* +  **%** *****) 


PROCEDURE  SOrtDld 


tcurcna 
do.id 


ptr.cn; 
integer) ; 


C*  Tnis  inserts  a  linked  list  of  contiict  nistories  into  tne 
data  ODject  conflict  history  list  in  sorted  order.   me 
ne*  list  is  pointed  to  Dy  curcha  ana  tne  data  ocject  is 
identified  by  the  do-id  input,  cne  oo  en  has  a  neaaer  and 
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trailer  record  *) 


VAR 


sort.cn.ptr#basecn,curcnb,Diacn 
paircn  :  ptr.cn. pair ; 


otr.cn; 


BEGIN   (*ri») 

sort.ch.pt 

WHILE  sort 

BEGIN 

base 

cure 

null 


END; 


E 
IF  C 


r  :  = 

-en. 
c*r 

en  : 

no  : 

E  cu 

so 

EGIN 

ba 
cu 
nd; 

urcn 
so 

F  NO 


curcn 
ptr  <> 

2*) 

=  do.a 

=  base 

rcnD", 

rt.cn. 

C*rJ 

seen  : 

rcho  : 

C*r3* 

d* .aa. 

rt-cn. 

XCscrt 

curcn 

ILE  Cc 

s 

• 

(S 


a; 

nil 


DO 


rr 
en 
aa 
ot 
*) 


ay  tdo.idJ  *.ch.ptr; 

*.nxt; 

.id. trans. site. init. site  < 

r* .aa. id. trans. site, init. site  Do 

curcno; 

curcnc'.nxt; 


NE*C 
N  E  M  ( 
clac 
olac 
oase 
pair 
pair 

olac 

sort 

END;   C 

(»rl*j 


oldc 
pair 
n*.p 
n*.n 
eh*, 
en*. 
en*. 
so 
n*.a 
.eh. 
*r2* 


BEGIN 
Da 
cu 
e.'JD; 
n); 
en); 
air.pt 
xt  :  = 
nxt "  :  = 

dd.ld 

metric 
rt.cn. 
a. id  : 
ptr  :  = 
) 


) 

id 
Pt 
.c 

D* 

ur 
or 
in 
or 
tr 
tr 

se 

re 
( 


.  tra 
r-.a 
n.ot 
.aa. 
cho* 
t.ch 
it-s 
t.ch 
ans. 
ans. 
(+r4 
en  : 
nb  : 
*r4* 


ns 
a. 
r" 
la 
•  a 

-P 

it 
-P 
nu 
nu 
*) 


-site. init. site  = 

id. trans.site.init.slte  THEN 

.aa.ics.  trans. site  .  trans. nun  < 

« trans. site,  trans. num)  THEN 

a. ia, trans. site. init. site  s 

trA.aa„id, trans. site 

e)  ana 

tr*.  aa. ia, trans. site 

rn  >  curchb^.aa-ia.  tr^ns.site 

m)  DO 

curcno; 
cure no*. nxt; 


r  ;=  paircn; 
basecn*.nxt; 

olacn; 
:=  sort.cn-ptr*.pair.ptr* .aa.ia; 
-sum  := 

ptr*.pair-ptr~,metric-sum; 
a  s6rt-cn.ptr~.aa.io; 

sort-cn-ptr*".  nxt; 


PROCEDURE  linXDla  c ln.send.ptr , in-accept-ptr  :  ptr.cn); 
(*  tnis  ados  tne  raemoers  of  tne  conflict  nistory  lin<  list 
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oointed  to  ay  in.send.ptr  to  the  list  pointed  to  oy 
in. accept. ptr  *) 


VAR 


nucnptr, ptrtocn, iink.ptr 
nupair  i  ptr. en. pair ; 


ptr-ch; 


BEGIN   C'li*) 

linK.ptr  :=  in. accept. ptr; 
ptrtocn  :=  in.send.ptr; 
REPEAT 

IF  ptrtocn*. aa.id, trans. site. trans.num  <>  y*9y  IHLN 
BEGIN   C  *  12*  J 
NE*(nuchptrj; 
new (nupair) ; 

nucriptr*.pair-ptr  ;=  nupair; 
nupair*~.aa-io  :=  ptrtocn*. pair. ptr*. aa. id; 
nupair*. metric-sum  := 

pt  r  t  ocn  *.  pa  ir.ptr  ".metrics  urn; 
nucnptr* .aa.id  :=  ptrtocn*. aa.id; 
nucnptr* .nxt  :="nil; 
lln<.ptr*,nxt  :=  nucnptr; 
linK.ptr" :=  nucnptr; 
end;   c*12*) 
ptrtoch  ;=  ptrtocn*. nxt; 
until  ptrtocn  =  nil; 
END;    C*ll*) 

(**^*^»^4E***f«^*^**** +*♦**»********  *^****^****»  *¥*¥*****•***; 

PROCEDURE  copy-to. tv  Ccurcha  :  ptr.cn; 

"ccpytv.tv.ptr  :  ptr.tv; 
a  o  n  u  m  :  integer); 

(*  lin<  the  conflict  history  list  pointea  to  by  curcha 
to  the  ne*ly  created  temp  version  to  tne  aata  ooject 
pointed  to  oy  aonum  *) 

VAR 

curcnb  :  ptr.cn; 
paircn   :  ptr.cn. pair; 

BEGIN   (*cl*) 
NE*(curcnfc ) ; 
NEW(paircn) ; 

curcno*. pair. ptr  :=  pairch; 
copytv.tv.ptr*. tv.ch-ptr  :=  curchp; 
paircn*. aa. id" :=  curcna* .pair. ptr* ,aa. id; 
paircn*. metric. sum  :=  curcha*. pair. ptr*. metric. sum; 
curcno*. aa.id  :=  curcna* ,aa. id; 
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curcno*.nxt  :=  nil; 

C*If  more  en  recs  then  linK  them  in  to  tv  eh*) 

IF  curcha*.nxt  <>  nil  THEN 

iinlcbidC cur cna**,nxt, copy tv«tv«ptr*,tv«ch«ptr ) ; 

END;    (*cl*)  ' 

^*************************************************4.********^f) 

^************  *********************************  **^**J,i********) 

PROCEDURE  copy-to-st  Ccurcha  :  ptr.cn; 

copyst.st.ptr  ;  ptr-stransj ; 

(*  link  tne  conflict  history  pointed  to  oy  curcna  to  tne 
suotrans  pointed  to  oy  copyst.sL.ptr  *) 

VAR 

curcno  :  otr.cn; 
paircn  :  ptr.cn. pair; 

6EG1N   C*Sl*) 

NE*Ccurchb)  ; 

NE*C paircn j  ; 

curcno*,pair-ptr  :=  palrch; 

paircn*. aa. id  :=  curcha* .oair.ptr* .aa.ld; 

pairch*,metric_sum  :=  curcha*. pair. ptr*, metric-sum; 

curcno*. aa. id  :=  curcna*  .aa.id; 

curcnD*.nxt  :=  nil; 

copyst.st.ptr*. st.ch.ptr  :=  curcho? 

(*If  more  ao  en,  linK  tnem  in  to  st  en  list*) 

IE  curcna*. nxt  <>  nil  then 

lin«bidccurcna*.nxt, copyst.st.ptr*.  st-ch.ptr  ) ; 
END;    C*sl*) 

^ *************************************************** *******) 
(****************************************** ***************** ^ 

PROCEDURE    mstalltv    Cinst-aa.ptr    :    ptr-aa; 

'inst.st.ptr  :  ptr-strans; 
inst.tv.ptr  :  ptr-tv); 

(*  this  installs  a  temp  ver  at  a  data  003  as  per  tne  action 
of  an  atomic  action.  It  also  copies  any  cont  hists  to  sub 
trans  or/and  data  oojs  or/and  temp  vers  as  necessary*) 

VAR 

curcna, curcnb, folcna, folcho  ;  ptr-cn; 
paircn  :  ptr.ch.pair; 
donum  ;  integer; 

BEGIN    (*il*3 

donum  :=  Inst. aa. ptr*.aa. id. do-id; 


132 


(♦load  the  temp  vers  fields*) 
loadtv(donum,inst.tv-ptr,inst.st.ptr , inst.aa.ptr ) ; 

(♦connect  tne  conflict  nistories  tor  do.tv  ana  st*) 


(♦connect  tne 

(*ao  notning  i 

IF  »OTCCdo.arr 

trans. si 

(inst.st 

BEGIN  (*12* 

(*dO   If 

U     (do. a 

tr 

CI 

BEGIN 

C* 

cu 

so 

C* 

cu 

CO 

END 

ELSE 
(♦do 
IF  Cd 


oc 


EN 
ELSE 
(* 
IE 


conf 
f  ai 
ay  Co. 
te.t 
.ptr 
) 

stc 
rray 
ans. 
nst. 
C* 
lin* 
rcna 
rtoi 
link 
rcna 
py-t 
(*ij 

if 

o.ar 
tra 
Un 

GIN 
C*i 
cur 
cop 

D   ( 

tnis 
(do 


lict  nistories  tor  ao,tv  ana 

1  en's  are  empty*; 

onum] *  . cn.ptr*  .nxt*.aa.id, 

rans.hun.  =  9999)  ana 

*. st. en. ptr  s  nil))  THEN 

h  not  empty  and  do  en  is  empty*) 
CdonumJ " . cn.ptr*.nxt*.aa.ia. 
site. trans. num  =  9999)  ana 
st. ptr*. st. en. ptr  <>  nil)  THEN 
13*) 

en  to  do  perm*) 

:=  inst.st. ptr*. st.cn. ptr; 
d(curcna  ,donum) ; 

en  to  tv*) 

;=  Inst.st. ptr*. st. cn.ptr ; 
o.tv(curc ha, inst.tv. ptr, acnum); 
♦  ) 


END; 


END 
END;    (*i2*) 

(*il*) 


st  en  is  empty  ana  do  en  is  not*) 
ray CdonumJ *.cn-ptr*.nxt*,aa.ia. 
ns-site, trans. nam  <>  9999)  and 
st-st-ptr* .st-cn.ptr  =  niD'ThEN 

(*14*) 
in<  do  en  to  st  en*) 
cna  :=  do-array Ldonuro] *.cn.ptr*.nxt; 
y.to.st (curcna, inst.st.ptr ) ; 
♦  14*) 

if  st  en  and  do  en  not  empty*) 
-array [donumJ *.cn-ptr*.nxt* .aa.id. 
trans-site. trans. num  <>  999y)  and 
( inst-st-ptr*. st.cn. ptr  <>  nil)  Ihen 
BEGIN   (*15*) 

(*lind  st  en  co  tv  en*) 
curcna  :=  inst. st.ptr*. st.cn. ptr ; 
copy.to.tv (curcna^ ins t.tv. ptr #donum); 
(*copy  st  en  to  do  en*) 
curcna  :=  inst.st.ptr* . st.cn. ptr ; 
sortold(curcna,aonum); 
(*  copy  ao  en  to  st  en*) 
curcna  :=  do-array [donum] *, en. ptr* .nxt; 
copy.to-st (cur cna , inst.st.ptr) ; 
(*I5*) 


[I*********************************************************) 
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f  M**t»»?**4:*|?**MM*MtM*»M*»M4mM*****?*»****;0*«W) 


PROCEDURE  create. temp. ver 


(ere. aa.ptr 

"cre.st-Ptr 

cre.tr.ptr 


ptr.aa; 
ptr.strans; 

Ptr.trans ) ; 


(*  tnis  installs  a  temp  version  at  tne  target  data  ooject 
and  places  the  sub  tran's  conflict  history  in  tne  temp 
version,  it  also  up-  dates  tne  conflict  nistories  at 
tne  data  object  and  at  tne  suo  trans  *) 


VAR 


temptv,nxt-tv.ptr,cre.tv.ptr 

curaost , curst  :  ptr-.cn; 

i, loop.cnt ,donum  :  integer? 


ptr.tv; 


BEGIN   (*1*) 

donum  :=  cre.aa 

IF  is.at-sit 

BEGIN   (* 

WR1TEL 

*RITE( 

*RITE( 

WRITEC 
AKITEl! 
*R1TEL 
(*lnst 
IF  do. 


END; 


.Pt 
e(d 
la* 
NCa 

aua 

c 
aua 
aua 
aua 
NCa 
all 
arr 

IN 

NE* 
NEa 

ins 


ao. 

END 
ELSE 

3EGIN 
tem 
wHI 

Nbn 
ins 

tem 
END; 
END   C*ia*) 
ELSE 

rfRITELNC 'ERR 
"•  at 


r*.a 

ohum 

) 

udit 

it,c 

re-t 

it,c 

it,c 

lt,c 

udit 

NE'W 

ay  id 
i*2* 
(do. 
(ere 
tall 
c 
arra 
(*2* 


a. id. do 
)  THEN 

, 'creat 
re.tr.p 
r.ptr*. 
re.st.p 
re.aa.p 
re.aa.p 
); 

temp  v 
onumJ  * . 
) 

array  id 
.tv.ptr 
tv(cre- 
re.tv.p 
y  Ldonum 
J 


•  id; 


(*3*) 
ptv  :=  do. a 
LE  temptv*. 
temptv  :=" t 
(ere. tv.ptr 
talltv(cre- 
cre.tv.p 
ptv.nxt    :  = 

(*3*) 


ing  a  temp  version  for:*); 
tr*. trans. site. init.site  \i, 
trans. site. trans. num  :  2); 
tr~.st.ia  :  i); 
tr* .aa-ia.aa.num  :  2); 
tr* .aa-ia.ao.iG  :  i) ; 

ersion  and  its  en*) 
tv.ptr  =  nil  ThEiN 

(*no  tv's  at  ao*) 
onurcj  *, tv.ptr) ; 
j; 

aa.ptr  ,  cre.st-.pt r  , 
tr) ; 
J*. tv.ptr  :=  cre.tv.ptr; 


(*at  least  one  tv  at  ao*) 
rrayldonumj*. tv.ptr; 
nxt  <>  nil  DU 
emptv.nxt; 
); 

aa.ptr ,cre.st.ptr, 
tr); 

cre.tv.ptr  ? 


QR;createtempver  called  when  d.c.  not", 
sice') 
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FUNCTION  detect. conflict  (do. id  :  integer)  :  oooiean; 

(*  rnis  function  determines  if  tne  latest  temp  version 

createa  nas  caaseo  a  conflict  at  its  data  object.   if  so, 
the'boolean  is  returned  as  true;  if  not,  as  false.  *j 

temp.tv.ptr  :  ptr.tv; 
conflict  :  Dooiean; 

BEGIN 

conflict  :=  false; 

temp.tv.ptr  :=  do. array  (ao.ioJ  *.  tv.ptr ; 

C*  If  oldest  temp  version  is  a  'WKITE*  and  it  is  not  tne 

only  temp  version  tnen  tnere  is  conflict  *) 
IF  temp.tv.ptr  <>  nil  THEN 
BEGIN 

If  ( (temp.tv.ptr*,aa.id,r.w.f lg  =  'w')  ana 
(temp.tv.ptr*.nxt  <>  nil))  THEN 
conflict  :=  true 
ELSE 

temp.tv-.ptr  :=  temp.tv.ptr"  .nxt 
END;   (*  IF  ♦) 

(*  searcn  all  remaining  temp  versions  for  a  'WRITE*;  if 

one  is  found  tnen  tnere  is  conflict  *) 
WHILE  C C temp.tv.ptr  <>  nil)  and  (conflict  =  false))  ou 

BEGIN 

IF  temp.tv.ptr* .aa. id. r.w. fig  =  '*'  THEN 

conflict  :=*true; 
temp.tv.ptr  :=  temp.tv.ptr* . nxt 
END;   (*  «rlILE  *) 
detect.conf lict  :=  conflict; 
IF  conflict  THEN 

HtUTELN  (aualt , 'conflict  is  aetected  at   ',ao.id  :  4) 
ELSE 

WRITELN  (audit, 'no  conflict  is  detected  at   ', 

do.ia  :  4); 
END; 

(¥*4^******4^*:M******************¥**>M***?****************) 

PROCEDURE  detm. conflicts  (do-id  :  integer; 

VAR  curr.cn.ptr  :  Dtr.cn); 

(*  inis  procedure  determines  i«nicr>  temp  versions  conflict 


lib 


witn  the  most  recent  temp  version  and  it  constructs  a 
linKed  list  of  those  conflicts.   it  assumes  a 
conflict  exists,  *) 

VAR 

temp. en. ptr  :  ptr-.cn; 
temp. pair. ptr  :  ptr.ch-pair; 
temp.tv.ptr,  lastw.tv.ptr  :  Ptr.tv; 
i  :  integer; 

BEGIN 

(*  determine  the  conflicting  temp  versions  *) 
temp.tv.ptr  :=  do. array  Ldo-idJ *. tv.ptr ; 
lastw.tv.ptr  :=  temp.tv.ptr; 
while  temp. tv. ptr*. nxt  <>  nil  DO 
BEGIN 

IF  temp»tv.ptr*.aa.id,r.w.f lg  =  '*'  Tr.EN 

lasfw. tv.ptr  :=  temp.tv.ptr; 
temp.tv.ptr  :=  temp.tv.ptr* .nxt 
END; 

(*  construct  tne  linked  list  of  conflict  teir.D  versions  *) 
new  Ccurr.cn.ptr ) ; 
temp. en. ptr  :=  curr.cn.ptr; 
while  lastw. tv.ptr  <>  temp.tv.ptr  oo 
BEGIN 

temp. ch. ptr*. aa. id  :=  lastw.tv.ptr* .aa.id; 
new  (temp. pair. ptr) ; 

temp.ch.otr* . pair.str  :=  temo.pair.Dtr ; 
temp. pair.ptr* .aa.id  :=  temp. tv. ptr*. aa.ic; 
temp. pair.ptr*. metric-sum  :=  last  a. tv.ptr*. 

metric-sum  t  temp-tv.ptr*.metric„sum; 
last'*. tv.ptr  :=  last*. tv-ptr*. nxt; 
IF  lastw.tv.Dtr  <>  temp.tv.ptr  IHln 
BEGIN 


IF  temp. tv. ptr*. aa-ic.r.w.flg  = 


—       *  'Li   * 


THEN 


BEGIN 

new  Ctemp.cn-ptr*.nxt ) ; 

temp. en. ptr  :=  temp.cn.ptr* .nxt 

END 
ELSE 

last'*-tv.ptr  :=  temp.tv.ptr 
END   (*  IF  THEN  *) 
END;    C*  WHILE  *) 
temp. en. ptr*. nxt  :=  nil; 

wRITELNCaudit, 'conflict  history  constructed  at  ',do.ia); 
END; 

(**********«******■>«*******  +  ****.************ +•***■»**********) 
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PROCEDURE  tind.tv 


(init.site  :  char; 
trans.  num,st.nuro,aa.num,ao.id 
var  outptr  ;  ptr.tv); 


integer; 


(♦  This  returns  a  pointer  to  tne  requested  te^p  version 
(outptr).  It  tne  requestea  temp  ver  is  not  tounc  tne 
outptr  is  returned  nil  ♦  ) 


VAR 


curptr 


ptr.tv; 


tv.ptr; 

nil  or  to ana*) 


ana 


ttEGIN   C*proc*j 

IF  do. array [do. idJ ".tv.ptr  =  nil  then 

outptr  :=  nil 
ELSE 

bEGlN   C*2*J 

(♦find  tne  right  tv*) 
outptr  :=  nil; 
curptr  :=  do. array ido-idj * 
repeat    i ♦until  curptr  = 

lb    (curptr* .aa. id, trans. site. 

init.site  =  init.site) 

(curptr*. aa. id, trans-site. 

trans. nutn   =    trans,  nun) 

(curptr*. aa. id, St. nun   = 

st. num)    and 
(curptr* ,  aa.ia.ad.nun    = 

aa.num)  IHEN" 
outptr  :=  curptr 
ELSE 

curptr  :=  curptr*. nxt 
UNTIL  (curotr  =  nil)  or  (outotr 
END;  C*2*) 
END;     (♦proc  find  tv^) 


and 


<>  nil); 


I**********************************************************) 
( ************************************************* **********) 

PROCEDURE   construct.prec.rel    (acid    :    integer); 

(♦tnis  determines  current  conflicts  with  tne  newiy  dopenaea 
temp  version  ana  aads  tnese  conflicts  to  tne  do  contuct 
history  in  sorted  order  and  to  tne  subtrans  ana  tv  en's*) 


var 


con.cn.ptr , tvitv, tvlst  :  ptr.cn; 


con-tr.ptr 
con.st.ptr 
con-aa.ptr 
con_tv.ptr 
init.site 


ptr-trans; 
ptr.strans; 
ptr-aa; 
ptr.tv; 
cnar; 
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trans_nura,st.num,aa.num,donurti 


integer; 


BEGIN 
KRI 

con 
det 
(♦a 
sor 
ini 

tra 

St. 

(♦a 

fin 


IF 


5 


Z 

ELS 

3 


(♦pro 
TEL.*  (a 
-ch.pt 
m.conf 
dd  tne 
toldCc 
t.site 

con 
ns.nura 

con 
num  :  = 
num  t  = 
am  :  = 
da  tne 
d.aad 
co 
con. st 
EGIN 
«RITEL 
WRITEL 
ma I TEL 

HO 

£ 

EGIN 

IF  C 

c 

ELSE 

BE 
t 


1 

EN 


c  constpr*) 

udit, 'const  prec  rel  at  a.o.   ',do.ia); 

r  :=  nil? 

licts(do.id,con.ch.Ptr) ; 

NEW  conf  nist  to  tne  aata  odJ  perm  record*) 
on.cn.pt r , ao.ia ) ; 

.cn.ptr^.pair-ptr^.aa-id. trans. site. lnit. site; 

•  *• 

-cn.ptr*.palr.ptr".aa-id. trans.site. trans. num; 

con.cn.p tr*. pa ir.ptr" .aa_ld.st.num; 

con.cn.ptr* , pa  ir.pt r*. a a.id.aa. num; 
con.cn.ptr*.pair.ptr* .aa-ia.do-ia; 

new  conf  hist  to  the  sue  trans  conf*) 
mt.site,  trans.num,s  t.num,  l , 
n.aa.ptr,con.st.ptr , con.tr.ptr ) ; 
-per  =  nil  in En 

N(audit, 'attempt  to  find  st  that  dldnot  exist'; 

N(audit,'in  proc  const  prec  rel'j; 

n (audit, ini t.slte , trans. num, st. num, a a. num) 


on.st.ptr*.st.cn.otr   =   nil    THEN 
opy.to.st (con.ch.pt r ,con-st.ptr) 

GIN 

vlst    :=   con.st.ptr* .st.cn. ptr; 
hIlE   tvlsf.nxt    <>"nil    Oo 

tvist  :=" tvlst* .nxt; 
InKbld(con.cn.ptr , tvist) ; 
d;        t*Xt*) 


END; 

(♦add  t 
f ind.tv 

IF  con. 
8EGI 
*RIT 
WRIT 
WRIT 
END 
ELSE 
BEGIN 
if 

ELS 


he  new  conf  hist  to  the  terno  version*) 
(ini t.slte,  trans.num,st.num,aa.num, 
don um, con. tv.ptr ) ; 
tv.ptr  =  nil  then 

N 

ELN(audit, 'attempt  to  find  tv  that  dldnot  exist*); 

ELN (audit , 'in  proc  const  prec  rel'); 

EL n (a ua it, ini t. site, trans.num,st.num,aa.num) 


con.tv.ptr~.tv.ch.ptr  =  nil  then 
copy.to.tvtcon.cn.ptr , con. tv.ptr ,donum) 
E 
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BEGIN 

tvitv  :=  con. tv. ptr* . tv.cn. ptr; 
WHILE  tvltv*.nxt  <>~nil  uO 

tvltv  :  = tvltv*, nxt; 
iin<dld(con-cn.ptr , tvltv) ; 
end;   c*if*) 
end; 
end;   C*proc  constpr*) 

I**********************************************************-} 
(**********************************************************) 

PROCEDURE  set.s  Cdo.id  :  integer); 

(*  sets  s  to  tne  number  of  temp  vers  arter  tne  1st  MITE  *; 

VAR 

temp.tv.ptr  :  ptr.tv; 
s  :  integer; 

BEGIN 

temp.tv.ptr    :=   do. array    [do.id] ~ . tv-ptr ; 
s    :=   0; 

(*    sxip   over   all    "read"    temp   versions    *) 
If   temp.tv.ptr   o'nil    rHEN 
BEGIN 

whiLE   C(temp.tv_ptr%nxt  <>  mi) 

ana    C  temp.tv.ptr*  .aa. ia.r.w.rlg    =    rr*)J    l>u 
temp.tv-.ptr    :=    temo.tv.ptr  *  .nxt ; 

C*  count  tne  ot  temp  vers  arter  tne  1st  white  *) 
IF  temp.tv_ptr*.aa.id.r.w.f lq  =  'w'  TnEh 
WHILE  temp.tv.ptr* ,nxt  <>  nil  DO 
SfcGIN 

s  :  =  s  +  l ; 

temp.tv.ptr  :=  temp. tv.otr*. nxt 
END 

end; 

(*  save  trie  value  in  data  ooject's  permanent  record  *) 
do. array  Coo.idJ *, s.cnt  :=  s; 

WRITELW  (auait,  'tne  value  of  "s"  was  set  to  :  ',s  :  •*) 
END; 

{**********************************************************■) 
(**********************************************************■) 

procedure  copy.cn  (cn.ptr  :  ptr.cn; 

VAR  rel-ptr  :  ptr-cn); 
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(*  tnis  procedure  creates  a  copy  of  a  conflict  historv 
passed  to  It  *) 


VAR 


old-ptr,  ;%Ew.ptr  :  ptr-.cn; 


BEGIN 

IF  cn.ptr  <>  nil  XH&H 
BEGIN 

SEW  Crei.ptr); 
NEW.ptr  :=  rel-ptr; 
old-ptr  :=  cn.ptr; 
■*HILE  old-ptr  <>  nil  uG 

BEGIN 

Ncw.ptr*«aa-id  :=  old-ptr" ,aa-id; 

NEW  (NEw«ptr*.pair-ptr ) ; 
NEw_ptr*.pair-Ptr* .aa.ia  :=  ola.ptr". 

pair-ptr*.aa-id; 
NEW.pt r* ipair-ptr* .metric-sum  := 

oid.ptr*,pair-ptr*.Tietric-sum; 
oid.ptr  :=  old.ptr*.nxt; 
IF  old-ptr  <>  nil  then 

bEGIN 

NEW  (NEW«ptr*.nxt) ; 
N£*-ptr  :=  N£w-ptr",,nxt 

END   C*  IF  TrtE«  *) 

end;  c*  while  *) 
NEw.ptr^.nxt  ;=  nil 
END 
ELSE 

rei.ptr  :=  nil 
END; 

PROCEDURE  detect. non.sr  (cn-ptr  :  ptr.cn; 

VAR  non.sr  :  ooolean; 
var  rei.ptr':  ptr.cn); 


VAR 


oase.Dtr,  lead.ptr,  follow. ptr,  bldptr ,prlnt.ptr 
pbldptr  ;  ptr.cn.pair; 


ptr-cn; 
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cnange,  found  :  boolean; 
ch.ia  :  cn.pair.rect; 

BEGIN 

(*  rna<e  a  copy  of  the  lata  ooject's  conflict  nistory  so 

that  it  can  oe  modiflea  *) 
*RITELN  (audit,  'entering  detect.non.sr' ) ; 
copy.ch  ccn.ptr,  rei.ptr); 

(*  detect  cycles  oy  deleting  conflict  Dairs  wnich  coula 

NOT  be  involved  in  a  cycle  -  tnose  whose  2nd  element 

never  appears  as  a  1st  element  *) 
REPEAT 

change  :=  false? 

case. ptr  :=  rei.ptr* .nxt; 

follow. ptr  :=  rei.ptr; 

lead. ptr  :=  base. ptr; 

while  base-ptr* .aa. id. trans-site. trans.num  <>  yyyy  DU 
Be-GI^ 

founa  :=  false; 

REPEAT 

lead. ptr  :=  lead. ptr*. nxt; 

IF  C C lead. ptr*. aa. id. trans-site, init.site  = 
oase.Dtr*  .pair. ptr*. a a. la. trans. site, 

init.site) 
and  (lead-ptr*.aa.i d. trans. sice. 

trans.nu"n  = 
oas e.ptr*. pair ,pcr",aa. Id. trans. site, 

trans-num ) 3 
THEN 
BEGIN 

found  :=  true; 
leaa.ptr*.aa-id .cn.seq  :=  0 
END 
until  CCfouna  =  truej  or 

(lead. ptr*  .aa.id.  Crans. site,  trans -nurr,  = 

9999)); 

IF  found  =  true  THEN 
BEGIN 

follow. ptr  :=  oase-ptr; 

base.ptr  :=  case. ptr*. nxt; 

lead. Ptr  ;=  rei.ptr 
END   (*  If    THEN  *) 
ELSE 

(*  tnrow  out  all  pairs  with  oase.ptr's  2na 

element  =  cn-ia  *) 
BEGIN 

cnange  ;=  true; 
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en. id. aa. id. trans. site  := 

dase.ptr"  .pair. ptr*,aa. id, trans-si  :e; 

(*  delete  pair  oase.ptr  points  to,  and 
continue  .ftovihq  base.ptr  until  noae 
is  not  deleted  *) 
wHlLEC ( ba s e.o t r *. ca 1 r -p trA. a a.id. 
*  trans-site, lnit.site 

=   cn-ia.aa.id. trans-site, mit-sitej 
and    Coase.ptr~.pair.ptr~ . aa.ia. 
trans-site. trans. num 

=  cn.ia.da.id, trans-site, 
trans-numj )  du 
BEGIN 

follow. ptr~.nxt  :=  oase.ptr* . nxt ; 
base-ptr  :=  oase.ptr*. nxt 
ENu;   (*  wHiLe.  *) 

C*  now  searcn  from  beoinninc  of  list  for 

pairs  to  tnrow  out  *) 
follow. ptr  :=  rei.ptr; 
leaa.ptr  :=  rei.ptr*. nxt; 

WHILE  lead.ptr*.aa.iu,  trans. site,  trans. n urn 
<>  9999  00 
BEGIN 

IF  C (lead-PtrA,pdir-ptr~,aa-id, 

trans-site 
•init.site  =  ch-id.aa-ld. 

trans-site 
•init.site)  ano  Clead.ptr*. 

pair-Ptr*~,aa-ia 
•  trans-site,  trans. nu.ti  =  en. id, 
aa.ia  .trans. site, 
trans. num) )  THEN 
BEGIN 

follow. ptr",nxt  := 

ieao.ptr* .nxt; 
lead.ptr  :=  lead.ptr"' .nxt 
Ei»D      C*  It  THtN  *) 
ELSE 

BEGIN 

foilow-ptr  :=  lead-ptr; 
iead-ptr  :=  lead-ptr" .nxt 
END   C*  Ir  tL5E  *) 
END;   C*  WHILE  *)" 
lead.ptr  :=  rei.ptr; 
follow. ptr  :=  rei.ptr 
END   C*  IE  ELSE  *) 


end;   c«  while  *) 
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C*  If  no  otner  cnanges  nave  oeen  made  ana  if  trie  first 
element  of  a  conflict" Pair  appears  nowhere  else, 
then  throw  tnat  pair  away  *) 
IF  cnange  =  false  THEN 
BEGIN 

follow. ptr  :=  rel.ptr; 
lead.ptr  :=  rel.ptr* ,nxt; 
WHILE  lead.ptr  <>  nil  DO 

IF  lead. ptr*. aa.ia.ch. sea  =  o  THEN 

BE^IN 

IF  lead.ptr* . a a.ia. trans. site.tr a ns.num 
<>  9999  THEN" 

iead.ptr* .aa.ia.cn. sec  :=  1; 
follow. ptr  :=' leaa.ptr ; 
lead.ptr  :=  leaa.ptr* ,nxt 
END 
ELSE 

dEGIN 

follow. ptr* ,nxt  :=  lead. ptr*. nxc; 
lead.ptr  :=  leaa.ptr * ,nxt ; 
cnange  :=  true 

END 

IF   then  *) 


END   c* 


UNTIL  cnange  =  false; 


IF  r 

n 
ELSE 

a 


et  the  ooolean  'non.sr'  *) 

el. ptr*. nxt*. aa.id, trans. site, trans. num  = 

on.sr  :=  false 


9  9  9  ci  '1  H  L  N 


EGIN 
no 
n» 

pr 


n.sr  :=  true; 

ITELNcaudit, 'detect  non  sr  aetected  non  sr')» 

ITELNcaudit, 'cycle  is  :  '); 

int-ptr  :=  rel.ptr*, nxt; 

ILE  print. ptr*. nxt" <>  nil  Qu 

BEGIN 

WRITE LN (audit, print-ptr*. a a. id. trans. site, 
init.site  :  2 , print. ptrA .aa.id . 
trans. site, trans-num  :  2, 
print. ptr*. aa.id, st. num  ;  2, 
print-ptr*. aa. id. aa. num  :  2 , 
'    ' ,print-ptr*,pair.ptr*.aa.ia. 
trans-site, init. site  :  2, 
prlnt.ptr* , pair.ptr*,aa.la. 
trans. site, trans. num  ;  2, 
p r in t-p t r *. pa lr.ptr*. aa.id. 

st. num' ;  2 , 
prlnt.ptr* .pair.pt r*. aa.id. 
aa.num  :  2) ; 
prlnt.ptr  :=  prlnt.ptr*. nxt; 
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END; 


END 


END; 


PROCEDURE  determine. rolloacK  (rei.ptr  :  ptr.cn; 

var  rollPacx.ptr 


otr-cn) ; 


(*  This  procedure,  when  passed  a  conriict  history  iin<ed 
list  pointed  to  by  'rel-ptr',  will  produce  a  new  linked 
list  of  conflict  nistory  pairs  *hicn,  wnen  roiled  cacK, 
will  eliminate  all  present  cycles.   Tne  input  list  must 
nave  a  header  and  trailer,  tne  output  list  is  ouiit 
witnout  them.  *) 

VAR 

temp.ptr,  follow. ptr,  copy. ptr,  aad.ptr  :  otr.cn; 
small  :  integer; 
cycle  :  boolean; 

3EGIN 

rolloacK.ptr  :=  nil; 

C*  copy  tne  conflict  history  i'inKed  list  *) 
*RITELn  (audit,  'entering  determine. roHcac*' ) ; 
copy.cn  (rel.ptr,  cocy.ptr); 

kEPEAT 

(*  find  tne  conflict  pair  with  smallest  rretric.sum  *j 

temp.ptr  :=  copy-ptr* .nxt; 

small  :=  temp. ptr*.pair-ptr*. metric. sum; 

REPEAT 

IF  temp.ptr"  .pair-ptr*. met  ric-su.Ti  <  small  xmLn 
small  ;  =  '  temp.ptr*".pair.ptr*. metric. sum; 

temp.ptr  :=  temp. ptr*. nxt 
until  temp. ptr". nxt  =  nil; 

(*  delete  tne  conflict  history  pair  with  tne  smallest 

metric. sum  *) 
temp.ptr  :=  copy.ptr* .nxt ; 
tollow.ptr  :=  copy. ptr; 
*rtlLc  temp. ptr*. pair. ptr" .metric-sum  <>  small  DO 

BEGIN 

follow. ptr  ;=  temo.ptr; 
temp.ptr  :=  temD.ptr* .nxt 

end; 
follow. ptr*. nxt  :=  temp.ptr* .nxt; 
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(*   append    trie   aeletea   pair    to    the    rollDacK    list    *) 
temp.otr* ,nxt    ;s   nil; 
If    rolloacK-ptr   =   nil    ThEN 
BEGIN 

rolloaOcDtr    :=   teaip_ptr; 
add.ptr    :=   rollbacx-ptr 
END 
ELSE 

BEGIN 

aaa.ptr*,nxt  :=  temp.ptr; 
ada.ptr  :=  add-ptr* .nxt 
END; 

(*  determine  if  any  more  cycles  exist  *) 
detect.non.sr  (copy„ptr,  cycle,  copy.ptr) 

UNTIL  NOT  cycle 

end; 

1*1******  +  ******************************.*******************) 

FUNCTION    ls-ln-list    Unit-site    :    cnar; 

" trans-num, st-num ,aa.num  :  integer; 
listptr  :  ptr-reexec)  :  boolean; 

(*  tnis  returns  true  if  tne  input  list  member  is  in  the  list 
of  type  re.exec.rect,  false  otherwise  *) 


vak 


curptr 


ptr.reexec; 


BEGIN   (*func*) 

is.in-list  :=  false; 
curptr  :=  listptr; 
IF  curptr  =  nil  Then 

ls-in.iist  :=  raise 
ELSE 

BEGIN   (*ELSE*) 

repeat    C*until  curptr 
IF  (curptr". init-site 
(curptr*, trans -num 
(curptr*, st-num  =  st-nuRO  and 
(curptr* .aa-num  =  aa-nuu.  j   then 
is-ih-iist  :=  true; 
curptr  :=  curotr*.nxt; 
UNTIL  curptr  =  nil; 
END;    (*EL3£*) 
END;    (*func  is. in. list*) 


nil*) 

lnit-site)  and 
trans-num)  and 
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PROCEDURE  ch. dispose  (var  head.cn.ptr  :  ptr.cn;; 

C*  Ihis  procedure  will  release  un-needed  storage  sp^ce  so 
that  It  may  later  oe  used  again.   It  does  so  tor  roiled 
bacx  conflict ' Histories.  *) 

VAR 

ch.ptr  :  ptr.en; 

BEGIN 

w'HXLE  nead-.cn. ptr  <>  nil  DO 
BEGIN 

ch.ptr  :=  heao.cn.ptr; 
nead. ch.ptr  :=  nead.cn.ptr* .nxt; 
DISPOSE  Cch.ptr',.pair.ptr; ; 
DISPOSE  (cn.ptr) 
END 
END;   (*  en. dispose  *) 

It*********************************************************) 

(**********************************************************) 

PROCEDURE  rollbacx.cn  Clnit.site  :  cnar; 

trans.num,  st.num,  aa.num  :  inteoer; 
from.commit  ;" boolean); 

C*  This  procedure  will  remove  conflict  mstories  from 
throughout  the  database.   If  called  from  the  commit 
procedure,  all  en's  will  be  removed  for  tne  committing 
trans  -  identified  dy  its  init-site  ano  trans-nun.  it 
called  from  rollcacK,  a  list  of  en  pairs  will  nave  ceen 
nung  on  tne  purge. list-ptr .  *) 

PROCEDURE  purge.cn  (var  nead.cn  :  ptr.cn; 

pg.ptrtocn  :  ptr-cn; 
var  hoia-ptr  :  ptr-cn); 

C*  tnis  removes  tne  en  pair  member  pointed  to  dv  Dg.ptrtoch 
from  tne  list  pointed  to  cy  neaa-ch*) 

VAR 

tvl.ch  ;  ptr.cn; 

begin   c*purge  en*) 

IF  nead.cn  <>  ml  ThEN 
begin  (*x*) 
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END 


IF  head.cn  s  pg.ptrtocn  Then 
BEGIN 

heaa-cn  :=  pg.ptrtocn*.nxt ; 

ncld.ptr  J=  pg.ptrtocn*. nxt; 

pg.ptrtocn*. nxt  :=  purge. list. ptr; 

purge. list. otr  :=  pg.ptrtoch; 
END 
ELSE 

BEGIN   (*2*) 

tvl.cn  :=  neaa.ch; 

WHILE  tvl.ch*. nxt  <>  pg.ptrtocn  DU 
tvi.cn  s=  tvi.cn*. nxt; 

tvl.ch*.nxt  :=  pg.ptrtocn* .nxt; 

noid.ptr    :=  pg-ptrtocn%nxt; 

pg.ptrtocn* .nxt  :=  purge. list.ptr; 

purge. list. ptr  :=  pg.ptrtocn 

END    t*2*) 

(*1*) 


END;   (*purge  en*) 

PROCEDURE  purge. commit  CVAR  neaa.cm.cn  :  otr.cn; 

cm.init.3lte  :  cnar; 
cm. trans. num  :  integer); 

(*  this  finds  all  tne  en  members  in  the  list  pointed  to  uy 
nead.cm.cn  which  nave  identifiers  tne  same  as  tne 
init.site  and  trans. num  and  removes  tnem  from  tne 
list  Dy  calling  purge. ch  *) 


VAR 


purge. cm. fig  :  boolean; 

nold. cm. ptr, tvl.pr.cm  :  ptr.cn; 


BEGIN   (*  purge  commit  *) 
IF  nead.cm.cn  <>  nil  THEN 
BEGIN  (*1*) 

tvl.pr.cm  :=  nead.cm.ch; 
purge. cm. fig  :=  false; 
aHILE  tvl.Dr.cm  <>  nil  DO 
BEGIN   (*2*) 

IF  ( tvl.pr.cm *.aa.i a. trans.site.init.s 
cm. init.site)  and  C tvl.pr.cm* ,aa. id. 
trans. site. trans-num  =  cm.trans.num) 
BEGIN 

purge.cnCnead.cm.cn, tvl.pr.cm, 

nold.crn.ptr ) ; 
purge. cm.flg    :=   true; 


.init.site  = 
m)  i'HLN 


ELSE 


L.MD 
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IF  (tvl-pr.cm*,pair.ptr*.aa-id.trans-si::e. 
lnit.site  = 

cm.init.site)  and  ( tvl.pr.cm~ . 
pair.otr*.  aa. id, 

trans. site .trans-num  =  cm. trans. nurr) 
THEN 

BEGIN 

purge.cntheaa.cn.cn ,  tvl.pr.cm  , 

hola_cm_ptr ) ; 
purge-cm. f lg  :=  true, 
END; 
If  purge-cm. fig  THEN 

tvi.pr.cn  :=  hola.cm.ptr 
ELSE 

tvl.pr.cm  :=  tvl«pr.cm*,nxt; 
purge. cm. fig  :=  false; 
End    (*2*) 
END   (*1») 
E.MD;    (*  purge  commit  ») 

PROCEDURE  purge. roilDacK  (VAR  nead.rl.cn  :  otr.cn; 

rl-init.site  :  cnar; 
rl-trans.num, rl.st.num, 
ri.aa.num  :  integer); 

C*  tnis  finds  all  the  en  members  in  the  list  pointed  to  oy 
head.rl.cn  >hicn  Piawe    iaentitiers  tne  same  as  tne 
lnit.site  ana  trans. num  and  st-num  ana  aa.r.um 
and  removes  tnem  from  tne  list  oy" calling  purge.cn  *) 

VAR 

purge. rl. fig  :  ooolean; 
nola.rl.ptr , tvi.or.rl  :  ptr.cn; 

BEGIN   (*  purge  rolloac<  *) 
IF  nead.rl-cn  <>  nil  THEN 
BEGIN  CM*) 

tvl.pr.rl  :=  head.rl-ch; 
purge. rl. fig  :=  false; 
rtHiLE  tvl.pr.rl  <>  nil  do 
BEGIN   C*2*) 

IF  C tvl.pr.rl* .aa.ia. trans. site. init. site  = 
rl-init.site) 'and  ( tvl.pr.rl *.aa. id. 
tr3ns. site. trans. num  =  rl. trans. num)  ana 
( tvl.pr.rl* .aa. id. st. num  =  rl.st.num)  and 
C tvl.pr.rl* .aa. id, aa.num  =  ri.aa.num)  TrEn 
BEGIN 

purge. en  cnead.rl.cn, tvl.pr.rl, 

nola.rl.ptr) ; 
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ourge.rl.f ig  :=  true; 
ENO 
ELSE 

IF  Ctvl.pr.rl*,pair.ptr*.aa..id. trans-site, 
inlt.site' = 

rl.init-site )    ana  ( tvl.pr.rl" . 
pair-ptr".  aa_id. 

trans-site,  trans-num  =  rl-trans.nurn) 
and  C tvi.pr-rl".pair.Ptr*.aa.ia. 
st.num  =  ri-stlnumj  ana  I tvl„pr«r i" . 
palr«ptr*,.aa-ia.aa-nuiTi  =  'ri«.aa_num  j 
IriEN 

citGIN 

purge*cn(nead«.rl-.ch,  tvi.pr-rl, 

noid.rl.ptr ) ; 
purge„rl«£lg  :=  true; 
END; 
IF  purge-rl-flg  THEN 

tvi-pr.rl  :=  nola.rl-ptr 
ELSE 

tvi.pr-rl  :=  tvl-pr«rl*.nxt; 
ourge.rl-.ilg  :s  talse; 
END    (***) 
E.ND   (*1*) 
END;    (*  purge  rolloac<  *) 

[ft********************************************************) 

PHOCEDUHE  purge„tr„cn  (pg-.init-.site  :  cnar; 

pg«tran3-nufn,pq-st-numf 
pg„aa«.num  :  integer; 
tr-commit  :  oooleanj; 

C*  tnis  removes  tne  en's  from  tne  *nole  transaction  ana 

suotransaction  structures  *nicn  nave  tne  same  oarameters 
as  tne  input  lnlt-site, trans-num, st-num  and  aa«num. 
it  tr-commit  is  true,  tne  call  came  from  tne  commit 
proc,  if  false  the  call  came  from  tne  rolloac<*j 

VAR 

tr.nead,st«nead  :  otr.cn; 
tr.tvl  ;  ptr-trans; 
st.tvl  :  ptr.strans; 

BEGIN   c*  purge  tr  en  *) 
IF  trans.ptr  <>  nil  THEN 

BEGIN   C*l*) 

tr.tvi  :=  trans. ptr; 
while  tr-tvi  <>  nil  du 

BEGIN   (*2*) 

If  tr.commit  THcn 
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purge-commit (tr-tvl*,trans-cn-ptr, 

Pg-init-site,pq-trans-numj 
ELSE 

purge-rollfcacm tr-tvi*. trans-cn_otr , 

Pg-init-site ,  pq-trans-num , 
pg»st-num,pg.aa-num J ; 
st-tvi  :=  tr-tvi*,st-ptr; 
WHILE  st-tvl  <>  nil  DO 
SEGIN   (*3») 

IF  tr-commit  1'ritN 

purge-commit (st-tvl*.  s t-ch-.pt  r  , 
pg-init-site,pq-trans-num j 
ELSE 

Durge-roilDac<Lst-tvi*.st«cn-ptr , 
pg-init-site #pg-trans-num, 
pg-st-num,Dg-aa-num; : 
st-tvl  :=  st-tvl*. nxt; 
end;    (*3*) 
tr-tvi  :=  tr-tvi* ,nxt; 
END   (*2*) 

END   C*l») 

END;    (*  purge  tr  en  *) 

I  **  +  *************** *************************** *************) 

PRUCEDUKE  purge-do-cn  (init-site  :  cnar; 

trans-num,  st-num,  aa_num  :  intecer; 
do-f  rom-co^it  :  ooolean); 

(*  tnis  *ill  purge  a  conflict  r.istory  identified  by  aa-ia 
elements  from  ail  d.o.'s  ana  all  temp  versions  *) 

VAR 

i  :  integer; 
tv-ptr  :  ptr-tv; 

3EGIN 

FOR  i  :=  1  TO  99  DO 

IF  do-array  tiJ  <>  nil  then 
BEGIN 

(*  purge  this  en  from  the  d.o.  oerm  *) 
IF  do-f rom. commit  IrtEN 

purge-commit  Cdo-array  I  i] * .cn-ptr , 
init-site,  trans-num) 
ELSE 

purge-rollbacK    (do-array    LU  *  .cn-ptr , 

"init-site,    trans-num, 
st-num,    aa-num); 

(*  purge  tnis  en  from  all  tv's  at  tnis  d.o.  *) 
tv-ptr  :=  ao-array  li] m. tv-ptr; 
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while  tv.ptr  <>  p.ii  qo 

BEGIN 

If  do. from. commit  THEN 

purge. commit  (tv.ptr* . tv.ch.pt r , 

"init.site,  trans. num) 
ELSE 

purge. rollbacK  (tv.ptr*. tv.cn.ptr , 

"init.site,    trans-nun1, 
st.num,    aa.nuivi ) ; 
tv.ptr    :=   tv.ptr*. nxt 
END      (*    *HILE    *) 
END       (*    IF    THEN    *) 
END;      C*    purge.do.cn   *) 

(*  main  for  roiiDdCK.cn  * ) 
BEGIN 

IF  from. commit  THEN 
BEGIN 

wRITELN  Cauaitf  'rollbacK.cn  is  removing  cn"s  tor', 

'  commit*); 
purge.tr.cn  Cini t. site, trans. n urn, u ,  u, from. commit); 
purge.do.cn  C  init.site,  trans,  num.,  0,0,  from. commit ) 
END 
ELSE 

dSGIN 

WFITELN  (audit,  'rolloacx.cn  is  removing  cn"s  for', 

'  rolloack'); 
purge.tr.cn  (init.site,  trans-num,  st.num,  aa.num, 

f rom.commi c) ; 
purge.do.cn  (init.site,  trans. num,  st.num,  aa.num, 
from. commit ) 
END   C*  IF  EL3E  *) 
END;   (*  rolloacK.cn  *) 

PROCEDURE  release. locK  (ao.id  :  integer; 

~rel.aa.ptr  :  ptr.aa); 

(*  tnis  procedure  will  release  ail  Iocks  nela  oy  tne 
currently  executing  atomic  action  *) 


VAR 


curr.ptr  ;  ptr.dic; 

dummy. st. ptr  :  ptr.strans; 

dummy. tr.ptr  :  ptr. trans; 

nxt.aa.ptr  :  ptr.aa; 

rei. dispose. ptr  : " otr.locK.q; 
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BEGIN 

re 

IF 


l-aa.pt 
do.arr 
BEGIN 
C* 

WIT 


r*. have-lock  :=  false; 

ay  [oo.idJ *.lock-q-ptr  <>  nil  then 


IF 


find  aa  at  front  ot  lock  queue  +  change  its 
loc<  flag  *) 

h  ao-array  Ido-idJ  "  ,  iock.q-.ptr*  ,aa-io  ao 
find.aa  ( trans,  site,  lnit-site, " 
"trans-site. t ran s-num, 
st-num,aa-num,nxt-aa-ptr ,  ducnmy.st-ptr, 
dummy-tr-ptr) ; 
nxt.aa-ptr  <>  nil  IHEN 
BEGIN 

nxt.aa-ptr* ,nave-locx  :=  true; 
nxt.aa.ptr*.in.locKq.f lg  :=  false; 
nxt.aa.ptr* .step.num  :=  3 


ELS 


C* 


END 

E 

aaiTELN  (audit,  'aa.id  not  found  c  release-loc,<" ) 


call 

site 
wITb  do. array 

BEGIN 

rfRITE 
*hITELN 


find.tv  and  send       containing  the  tv  to 
*  n  e  r  e  tne  a.o.  is  repiicatea  * ) 

[do. id] ".locK-q-ptr* ,aa- ia  uO 


.en 


Caudit ,  'release  Iock  '); 

(audit , 'removed  from  lock 
wkITE  (auait, trans -site.init.site 
stills    (audit,  trans-site,  trans  .nun 
*kITE  (aualt , st.num  ;  2J; 
*KITE  (audit , aa. num  :  2); 
*HITELN(audit) ; 


q  u  e  u  e 

:  2) ; 
:  2)  ; 


(*  remove  aa  from  front  of  Iockq  +  roHcac* 

it's  en's  «) 
rolloack.cn  (trans-site. init. site,  trans-site 
" .  trans.num, st.num , aa.num, f alse )  ; 
END;   (*  witn  *) 


c'AD 
ELSE 
BEG 


rel. dispose. ptr  :=  do-array ido.idj A.ioc<_q.ptr ; 
do.array Cdo-idJ  *.loc<-a.ptr~:  = 

do.array  iao.idJ " • lock-q.ptr~.nxt ; 
DISPOSE Crel-dispose-ptr } ; 

(*  IF  "  TnEw  *J 

IN 

(*  release  locxs  at  eacn  site  d.o.  is  repiicatea 

at  -after  first  installing  tne  corresponamg 

temD  version  *) 
curr.ptr  :=  die. array  Cdo-iaj ; 
wrilLE  curr.ptr  <>  nil  Du 

BEGIN 
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END 


IF  curr-ptr^.site.ia  = 

die-array  L o) ".site. id  rHEN 
BEGIN 

do-array  _ldo-idj *. Iock  :=  false; 
wkITEln (auait, 'release  iock' for  a.o,  ', 

d  o  .  i  a ) ; 
END 
ELSE 

C*  send  msg  to  replicatea  site  - 

curr-ptr*. site-id   to  1st  install  a  tv, 
tnen  release  tne  iock  *j 
WRiTELN  Caudit,  'release  iock  for  a.o.  ', 

do-ld  :  2, 
'    at  site  ',  curr-Ptr~. site-la) ; 
curr-ptr  :=  curr-ptr*.nxt; 
£ND   C*  MtilLL    *) 
C*  IF  ELSE  *) 


end; 


PROCEDURE  rolloacK  (inllst-ptr  :  otr-cn; 

var  roll-cn.ptr  :  ptr-cnj; 

(*tnis  rolls  oacK  any  atomic  actions  *nich  appear  in  tne 
list  pointed  to  by  lnlist  and  any  atomic  actions  in 
tne  same  suo  transaction  *hicn  follow  tne  roiled  oac* 
atomic  action.   Any  temporary  version  ouilc  oy  tne  rollea 
oac.<  atomic  actions  are  deleted  ana  any  temporary  versions 
cased  on  tne' temp  ver  wnicn  *as  deletea  are  also  oeietea 
and  tneir  atomic  actions  are  rollea  DacK.   tne  output 
pointer  points  to  tne  list  of  atomic  actions  wnich  must 
oe  executed  oefore  any  otners  are  allowed  to  execute, 
cne  input  list  will  not  oe  empty  wnen  tnis  oroc  is  caUeo. 
no  neaoers  or  trailers  on  any  output  list,   a  list  or 
conf  nistories  from  rolled  oac<  terriD  vers  isaiso 
output. *) 

LA5EL  1; 

VAK 

isatv,oKaaf  lg, oxtvf  lg,  f  irst-rol-f  lg, o<-f  lg  :  ooolean; 

isite  :  cnar; 

i, tnum, stnum,aanum,doid  :  integer; 

inenptr  :  ptr.cn; 

folrolptr,nurolptr,nureptr,toioreptr, 

currol,  rolloacK-ptr ,  re-ptr  :  ptr-reexec; 

(*  procedures  for  roiloacx  *) 

(ft******************************************************.**) 
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PROCEDURE  rollback. aa 


Unit. site  :  cnar; 
trans. num , st.num ,aa.num  :  integer; 
VAR  okaaflg,isatv  :  boolean;; 


(♦This  rollsbacK  atomic  actions  round  on  the  rolioac*  list, 
If  any  successor  atomic  actions  need  to  ce  rolled  oacx 
due  to  rolling  an  aa   back,  tne  successors  are  placea  at 
the  end  of  tne  roll-  back  list.  The  t(r)  Quantities  ore 
also  adjusted  at  tne  suo  trans  and  trans  as  necessary. 
if  tne  atomic  action  is  in  tne  locx  queue  it  is  re^ovea 
and  iastv  is  set  to  false*) 

VAR 

rollo.aa.ptr  :  ptr.aa; 

nurolptf,  tvlptr  :  ptr.reexec; 

ptrtotv  :  ptr.tv; " 

donum  :  integer; 

f indptr ,curptr  :  otr.locfc.q; 

rollo-st.ptr  :  ptr.strans; 

rollo.tr. ptr  :  ptr-trans; 

(*  proc  for  rolloack. aa  *) 

(^M^t  **************  *^*********4*****¥****^^*******^  ***-**¥**) 

PROCtDu'RE  rina.loc.a.memo  (initsite  ;  cnar;  transnum,stnum, 

aanum,doio  :  integer; 
VAR  curptr  :  ptr.lock.aj; 

(*tnis  proc  returns  tne  pointer  to  a  memoer  of  tne  ioc< 
queue  at  ooio  with  tne  attrioutes  input  to  tne  proc,   it 
it  cannot  rind  the  memoer  it  returns  a  nil  in  curotr*) 


^AR 


tvlptr 


ptr.lock.q; 


BEGIN 
tvlp 
IF  t 

c 
ELSt 

6 


(♦find  loc  q  memo*) 
tr  :=  do-array taoid] *. loc<-q.ptr; 
vlptr  -   nil  THEw 
urotr  :=  nil 

EG IN   (*!*) 

curptr  ;=  nil; 

REPEAT    C*until  tvlptr  =  nil  or 
IF  Ctvlptr*,aa. id. trans. site, 
ihit.site  =  initsite) 
(tvlptr*.aa.io.trans.site. 

trans. num  =  transnum) 
( tvlptr*. aa. id. st. num  =  stnum) 
C tvlptr* ,aa. io. aa. num  =  aanun) 
curptr  :  =  tvlptr 
ELSE 


found  memoer*) 

and 

and 
and 
IhEN 
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END; 


tvlptr  :=  tvlptr*.nxt 
UNTIL  Ctvlptr  a  nil)  or  (curptr  <>  nil) 
EUD;   (*i*) 
(*find  loc  q  memoer*) 


(?.x*******)K*****-«»**********^*f?************f****J!******-»**) 


BEGIN 

roll 
find 

IF  r 

o 

ELSE 

a 


(*proc  rolioacK-aa*) 

o.aa.ptr  :=  nil; 

.aacinit. site, trans. num,st-nuiTi,aa.n  urn, 

rollb.aa.ptr,rollb.st.ptr ,  rol lo.tr.pt r ) ; 
ollb.aa.ptr  =  nil  the?; 
<aaflg  !=  false 


EGIN   C*l*) 

IF  (rolio.aa.ptr* 
release. lockC 


ofcaaf  1 
*RITEL 
*FITil 
*RITE( 
a(RIT£( 
aPIIEC 
rthlTEL 
(*  IF 
ao] 

DOS 

IF  rol 

BEG 


g  :=  t 

NCauai 

audit , 

audit, 

audit, 

audit , 

NCaudl 

trie  at 

u  s  t  t  ft 

sioly 

lo.aa. 

IM 

IF  rol 


rue; 

t,'ro 

init- 

trans 

st.nu 

aa. nu 

t); 

o  m  i  c 

e  tin 

tne  c 

ptr*. 


.nave.iocio    thlN 
rollD.aa.ptr~  ,aa.ia.ao.ia, 
rollo.aa.ctr) ; 

iling  pac<  atomic  action  :'); 
site  :  2); 
-num  :  2); 
m  :  2 ) ; 
m  :  2 ) ; 

action  to  rolloac*  was  in  steo  l * 

qtys  in  tne  sub  trans  anu 
rans  *) 
step-num  =14  THEN 


lb.st-ptr*.aa.f  in-aty  = 

rolib.st.ptr*.aa.qty  Thln 
rollD-tr.ptr*.st.f  m.qty  := 

roiio.tr.ptr* . sL.iin.qty  -  l; 
rollb.st.ptr*.aa.f m-qty  := 

rolicst.ptr*  .aa.f  in.qty  -  l; 


end; 

(*  It  tne  atomic 

tnen  adjust  tne 

and  trans  as  ne 

f lnd.tvcinit.site 

rollb.aa- 

IF  ptrtotv  <>  nil 

IF  ptrtotv*. st 

5EGIN 

IF  rolic 

rollo. 

rolit. 


action  o*ns  a  t(r)  temo  version 
quantities  at  tne  suo  trans 

cessary*; 

,  trans.num  ,  s  t.nu/n  ,  aa.num , 

Ptr* , aa-id. do. id, ptrtotv J ; 
THEN 

at-fla  =  'r'  THEN 

st-Ptr* .aa-tr.aty  = 

roilo.st.ptr*  .aa.aty  TmE.'i 
tr-ptr*.st.tr.qty  := 
rollo-tr-ptr~.3t-tr.qty  -  l ; 
st.ptr*.aa.tr.qty  := 
rollD.st.ptr* . aa. tr.qty  -  l 
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end; 
(*If  tne  atomic  action  is  in  tne  ioc<  queue, 

remove  it*) 
donum  :=  roilo.aa. 
IF  rollD.aa.ptr*,i 
*ITH  rollo.aa.p 
fina.ioc.q-.Ti 


,ptr* 
r.-lo 
tr*. 
iemb  c 


IF 


curptr  <> 

BEGIN   (* 
rollba 


*RITE( 
wRITEL 
aHITEL 


isatv 
IF  do. 
THE 

do. 

ELSE 

"  a£(j 


nil 
1,6* 

CK-C 


audi 
i\i(au 
n  Cau 
tr 
st 
:=  t 
arra 
N 

arra 
ao.a 


.  aa.io 
cxq.tl 
aa-ld 
trans- 
trans, 
st-num 

XHaN" 
) 
nctran 

"  tran 
st.n 
t,  'rol 
ait, ' 
dit,tr 
a  n  s  .  S  i 
.Hum  , 
a  I  s  e  ;  " 
V  idonu 

y  idonu 
r  r  a  y  [  a 


.do.ia; 
g   the  a 


DU    bEGliN     C  *  1  .  b *  J 

site,  lmt.site , 

site , trans. num , 

, aa.num,do.ia, curptr) ; 


s.slte.  mit.site, 
s. site. trans. num, 
um , aa.num , false) ; 
loacK. aa  is  removi 
aa  tromiocK  q  ;'j 
ahs. site. mit.site 
te  .  trans. n  urn  j  4, 
4 ,  aa.num  :  h ) ; 


ng'j ; 

f 


nj * . locK.a.ptr  =  curptr 


IN   ( *  1 . 7  * 
finaptr  := 


END 
ELSE 

oEGIiN  ( 

«KITEL 


*HlLt  fina 
tindptr 

finaptr", n 
END  i*1.7*) 
C*l.b*J 


mj *. loc<.a.ptr  := 
on urn j  * . locK.a.ptr ' 

) 
ao.array  laonum j  *  . 

lOCK.q 

ptr*.nxt  <>  curptr 

:  = finaptr". nxt; 
xt  :=  curptr*. nxt; 


.  nxt 


-  c  t  r ; 
DO 


*KITEL 

end;  C* 
end;  (*1.5*) 
(♦reset  f-ieids  in 
rollo.aa.ptr* .aa.l 
rolio.aa.ptr*, stat 
rollo.aa.ptr*.step 
rollo.aa.ptr*. time 
rollD.aa.ptr*.in.l 
rollo.aa.ptr '  :=  ro 
nhiLE  rollb.aa.ptr 


*l.o») 
NCauait, 

'roiaa  t 
trans. si 
trans. si 
st-nuni  : 

;H  audit) ; 

l.b*) 

rolled  oac 
d.cn.seq  : 

.num  ;=  0; 
-vai  :=  -l 
ocKq.flg  : 
llo.aa.ptf 
<>  nil  du 


ailed    to    £  n  d  ioc    ft"  e  m  o  '  , 

te.imt-site  :    4, 

te, trans .num  :    4, 

<*,    aa.num    :  4) ; 


K  atomic  action*) 
=  u; 


=  false; 
* .  n  x  t ; 
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&EGIN   (*2*) 

(*flna  and  send  to  roiloacK  list  any  atomic 
actions  which  executea  after  the  rollea 
oacK  atomic  action*j 
IF  roiiD.aa.ptr~. step. nur?  <>  o  I'Htw 
BEGIN  (*J*) 

IF  NOT  is.in-list Crollb.aa.ptr~.aa.ia, 

trans. site . 
init.site ,rolib.aa.ptr*.aa.ia. 

trans.site . 
trans. nuiT-  ,rolio.aa.ptr*.aa.ia. 

st.hum , 
rolib.aa.ptr*  . aa. id. aa.nu <t,  , 

rollback-ptr J  THfcfr 
BEGIN    C*4*J 

NEwcnurolptr) ; 
nuroiptr *. init.site  := 

rolib.aa.ptr* ,aa«id. 
trans.site.  lnit-site; 
nuroiptr**. trans. nur  :  = 

rollo.aa-ptr~.aa.ia. 
trans.site.  trans-nun,* 
nuroiptr*  .st. nun,  :  = 

roilo.aa.ptr~.aa.ic. 
st.num; 
nuroiptr* , aa. num  := 

roilD.aa.ptr~.da.ia. 

aa.nu"r,  ; 

r.urolpcr*  ,do«id  :=  roilb.ad.otr~ . 

aa.id.   ao.ia; 
nuroiptr*. nxt  :=  nil; 
IF  roiiDacx.Dtr  =  nil  then 

roiloacx.ptr  :=  nuroiptr 
ELSE 

BEGIN    C*b*) 

tvlptr  :=  rollback. ptr ; 
WrilLE  tvlptr*. nxt  <>  nil  DO 

tvlptr  :=  tvictr*.nxt; 
tvlptr*. nxt  :=  nuroiptr; 
end;   ~c*5«) 
end;   C*4*J 
roilD.aa.ptr  :=  rolio.aa.ptr* .nxt 

END   (*i») 
ELSE 

roilb-aa.ptr  :=  nil; 
END;    (*2») 
END;    (*1») 
END;    (*proc  rollbacxaa*) 
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PROCEDURE  rollbacK.tv  Unit. site  :  cnar; 

"  trans-num,st-nmn, aa-num, 
do. id  :  integer; 
VAR  oKtvflg  :  boolean); 

C*tnis  rollsbacx  a  temp  version  as  a  result  of  tne  temp 
versions  atomic  action  being  in  tne  roilDac*  list 
IF  tnere  are  suDsequent  temp  vers  cased  on  tne  rolioack 
candidate  tney  are  placed  on  tne  rolloacK  list  for 
future  rolloaoc*) 

VAR 

Dtrtotv,curotr , tv. dispose. ptr  :  ptr-tv; 

rolptr  :  ptr.reexec; 

tviptr , nuroiptr  :  ptr.reexec; 

lonum  :  integer; 

C*  proc  for  roiloack.tv  *) 

PROCEDURE  copy.to.roil.cn  (curotr  :  ptr.cn); 

C*tnis  copies  the  list  of  conf  hist  pointed  to  oy  curptr  to 
a  rolloacK  list  pointea  to  oy  roli.cn.ptr*) 

VAR 

tviptr  :  ptr.cn; 

begin  (*proc  copy  to  roll  en*) 
IF  roli.cn.ptr  =  nil  THEN 

roli.cn.ptr  :=  curptr 
ELSE 

3EGIN  {*!*) 

tviptr  :=  roli.cn.ptr; 
*HILE  tviptr*. nxt  <>  nil  DO 

tviptr  :=  tviptr*. nxt; 
tviptr*. nxt  :=  curptr; 
end;   C*l*) 
end;    C*proc  copy.to.roii.ch* j 

^i***************  *************  *****************************■) 

BEGIN  (*Droc  rolloacK.tv*) 

f  lnd.tvC  init.site, trans. num,st-num,aa.num,do.id  ,  ptrtotv) ; 
IF  ptrtotv  =  nil  THEN 

ofctvflg  :=  false 
ELSE 

aEGIN   (*2*) 

ofctvf ig  :=  true; 

*RITELn (audit , 'rolling  pacK  temp  version  :'); 

*RITE(auoit, init.site  :  2); 
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*KITEtauait , trans-num  :  2j; 

*KITE(auait ,  st-nuir.  :  2); 

*rcITE(auait  ,aa.nuro    :    2); 

WRITELN(audit) ; 

curptr  :=  do. array Ldo- id] *.tv-ptr; 

(♦the  case  where  the  roilbacx  temp  ver  is  the  only 

one  in  t.ne  list*) 
IF  (curptr  =  ptrtotv)  and  (ptrtotv* .nxt  =  nil)  1'HLN 
BEGIN    t*2.5*) 

IF  ptrtotv  <>  nil  TriEN 

DISPGSE(ptrtotv) ; 
do.array Ldo-idJ *. tv.otr  :=  nil; 
copy.to-roll-cn I ptrtotv*. tv.cn-ptr ) ; 
END    (*2.b*) 
ELSE 

BEGIN   (*3*) 

(*tne  case  where  the  rollcacx  terno  ver  is  tne 
first  fnemoer  in  tne  list--ouila  a  au-ntny 
first  memoer  so  you  can  nanale  it  like 
the  general  case*j 

IF  curptr  =  ptrtotv  Ime«n 
6EGIN    C»3.i*) 

donum":=  curptr* ,aa-la,ao_ia; 
N£»C curptr); 

curptr*. ad. id. trans-site. lnit-site  := 

'x'; 
curptr*. nxt  :=  ptrtotv; 
do-array taonumj *, tv.ptr  :=  curotr? 
eno;   C*3.1*J 
(*hanale  the  general  case  *nere  trie  rollbac* 

temp  is  imbedded  in  tne  list*) 
*MILE  curptr*. nxt  <>  ptrtotv  jo 

curptr  :=" curptr*. nxt; 
curptr*. nxt  :=  ptrtotv*. nxt; 
copy-to-roil-cn cptrtotv*. tv.cn-ptr ) ; 
IF  ptrtotv* .aa-id.r-w-f Ig  <>  'rr  IHEN 
BEGIN   («3.b*) 

(♦rolioac*  suosequent  temp  vers*) 
anlLE  curptr*. nxt  <>  nil  CO 
aEGlN   (*j".o*) 

IF  ptrtotv  <>  nil  Then 
Dispost(ptrtotv) ; 
IP  NOT  Is«in-list (curptr*. nxt*. aa.ia, 

trahs-site. 
init-site, curptr*  ,nxt".aa«.id. 

trans-site, 
trans-num, curptr*. nxt*. aa- id. 

st-num , 
curptr*.  nxt". aa-id.aa-nuiTi/ 


15* 


roiioacK.ctr ;  then 

BEGIN     1*4*) 

m  E  w  ( n  u  r  o  1  p  t  r ) ; 

nurolptr*,inlt.site  :=  curptr~.r»xt*. 

aa.id.  trans,  site.  in.  l  csite; 
nuroiptr*.  trans. num  :=  curptr".nxt*. 

aa.id. t ran s.s Ite.tr ans«.num; 
nurolptr*.st.num  :=  curptr*.nxt~. 

aa. la . st.num; 
nurolptr*.aa.num  :=  curotr*.nxt~. 

aa. id. aa.num; 
nurolptr  *".do.ia  :=  curotr*.nxt". 

aa. ia.ao.ia; 
nurolptr^.nxt  :=  nii; 
IF  roiloack.ptr  =  nil  THEN 

rolioacK.ptr  :=  nurolptr 
ELSE 

Begin   c*b*) 

tviptr  :=  rollbacK.ptr ; 
wnluE  tviptr*. nxt  <>  nil  DO 

tviptr  : =  t  v 1 p  t  r  "  .  n x  t  ; 
tviptr*. nxt  :=  huroiptr; 
±bo;       c*s*) 
END;    C*4*) 
copy. to. roil -cn(curptr~.nxt*. 

tv.cn.ptr ; ; 
tv.aispose.otr  :=  curptr* .nxt; 
curptr*.nxt  :=  curptr*.nxt".nxt; 
DlSe'Uic.Ctv.aispose.ptr); 
end;    (*i.o*) 
end;    (*3.S*) 
END J     (*J*) 

C*cut  out  dummy  record  IF  it  exists*) 
IF  curptr*,aa.id, trans. site. init. site  =  'x*  then 
do.arrayLaonuriij*.tv.ptr  ":  =  curptr".nxt; 
END;     (*2*) 
END;     C*proc  rollbacx-tv*) 

I************ ****************************** ****************) 

dEiilN   c*proc  rolloacK*) 
roll.cn.ptr  :=  nil; 
f irst.roi.tlg  :=  true; 
lncnptr  ;=  inlist-ptr; 
rollDac<-ptr  :=  nil; 
i  :=  l; 
REHEAT       C*until  incnptr  =  nil*) 

(*load  tne  re  exec  list  witn  the  data  from  tne  en 

pair  rec*) 
IF  not  ls.in.listtincnptr*.pair.ptrA,aa.ia. 

trans. site, ini t. site, 
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BEGIN   (*I 

n  b  w  c  n  u  r 

IF  r  e  e  x 

BEGI 

fol 

ree 

END 
ELSE 

BEGI 
f 

t 

t 

end; 

nureptr 
nureptr 

nureptr 

nureptr 

nureptr 

nureDtr 

end;    C*I 
(♦load  trie  ro 

pair  rec*) 
IF  not  is. in. 


incnptr~.pair-ptr~.aa.ia. 

trans. site,  trans. huin , 

Incnptr".palrlptr*.aa.ia.st-nurn, 

incnp tr~.pair.pt r~.ad.ia.au. nun, 

reexec.ptr)  then 
F  1*3 
eptr) ; 

ec.ptr  =  nil  TrtEN 
n    ( * .  5  * ) 
oreptr  :=  nureptr; 
xec.ptr  :=  nureDtr; 
(*,5*)~ 


N    ( 

olor 
rilLE 

fo 
olor 
olor 
C 
*.nx 
*.in 

aa 
~.tr 

aa 
~.st 

in 

*  «aa 

in 

*  .do 

in 
F  1* 
lloa 


♦  1*3 
eDtr  := 
folore 
loreptr 
eptr-.n 
eptr*  :  = 

t  ;=  ni 

it. site 
-id.tra 
ans.num 
.id.  tra 
.num  := 
cnptr~ , 
-num  := 
cnptr~ , 
.io  :  = 
c  n  p  t  r  *  . 
) 
ck  list 


reexec.ptr; 
otr~,nxt  <>  nil  00 

:=" foicreptr~.nxt; 
xt  :=  nureptr; 

nureptr; 

i; 

:=  lnchptr~.pair.Dtr~. 
ns.site. init.slte; 

:=  incnptr~.pair.ptr~ . 
ns.site. trans. nam; 

Dair.ptr~.aa.id. st.num; 

pair. ptr~.aa.ia,aa.n urn; 

oalr.ptr~.aa.ia.ao. id; 

with  data  trom  cne  en 


BEGIN   C*I 
new  cnur 
IF  firs 
BEGIN 
r 
fol 
END 
ELSE 

BEGI 
f 


list(lncnptr~.pair.ptr~.da.ia. 
tra  ns.  site,  -mit-site, 
ircnptr~.pair.Ptr~.aa.id. 
trans. site,   trans. num, 
incnptr~.palr.ptr~.aa-ia.st.num, 
i ncnP  t r  ~.  ?a ir.ptr~  . aa.ia.aa.num, 
rollDac<.ptr )  THEN 

F  2*) 

o  l  p  t  r ) ; 

t-rol-flg  THEN 

ollback.ptr  i=  nurolptr; 
rolptr  :=  nurolptr; 


N   C*l*) 

olroiptr*.nxt  :=  nurolptr; 
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folrolptr  :=  nuroiptr 
end;    C*i*) 
f lrst-roi«f lg  :=  false; 
nuroiptr*. nxt  :=  nil; 

nuroiptr*. init-slte  :=  inchptr*«pair-ptr*. 

aa-ia.trans-site,init._5iLe; 
nuroiptr*. trans. num  :=  inchptr*.pair-ptr* . 

aa-ia. trans -site. trans -num; 

nuroiptr*. st.num  :=  incnptr*. pair. ptr*.aa. id 

st.num; " 
nuroiptr*. aa-num  :=  incnptr* .pair-otr*.aa-ia 

aa.num; ' 
nuroiptr*. do. ia  :=  inchptr*.pair.ptr*.aa.id, 

do. la; 
2*) 
IbacK  list  with  data  from 


end;   (*if 

(♦load  the  rol 

the  cu   rec*) 

IF  foOT  is.in.l 


BEGIN   (*IF 
N  E  h  c  n  u  r  o 
It-  first 
riSGlN 

ro 
f  olr 

END 
ELSE 

3EGIN 

fo 

fo 

End; 

first.ro 

nuroiptr 

nuroiptr 

nuroiptr 

nuroiptr 

nuroiptr 

nuroiptr 

end;   (*IF 

incnptr  J=  incnpt 

UNTIL  incnptr  =  nil; 

curroi  :=  rolioacK-p 

RtPEAT      (*UNTIL  C 
oxaaflg  :=  false; 


istCincnptr*. aa- la. trans-site, 

init.site, 
i ncnptr*. a a-ia, trans -site. 

trans. num, 
incnptr*.aa-ia.st-nuro, 
incnptr*.aa-ia.aa.nur?, , 
rollDac<-ptr)  THEN 

l  p  t  r ) ; 

-rol-flg  i.icN 

lloac<-ptr  i=   nuroiptr; 
olptr  :=  nuroiotr; 


CM*) 
lrolptr*.nxt  :=  nuroiptr; 
lrolptr" :=  nufolotr 

C*i*) 
1-fig  :=  taise; 
* ,  n  x  t  :  =  n  1 1 ; 
*.lnit-site  ;=  inchptr*. 

aa-ia. trans -site, init-site; 

trans-num  :=  incnptr*. 

aa.id.trans-site.trans-nuin; 
*,st.nufo  :=  incnptr*. aa. la, st.nuirs; 
*,aa.num  ;=  incnptr* ,aa-ia , aa-num; 
*.do.io  :=  incnptr* .aa-id,do-id; 

i*) 

r*,nxt ; 

tr; 

urrol  =  nil*) 
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oKtvflg  :=  false; 
isatv  :=  true; 

C*IF  tnis  atomic  action  is  not  trom  this  site,  package 
tne  roll-  oacx  msg  and  send  it  to  tne  lnit  site 
of  the  aa  do  not  roll  it  or  any  temp  vers 
oack  at  tnis  site  at  tnis  time  otherwise,  roliDacK  tne 
aa   and  tne  tv*) 
rolioack.aa(curroi*.init.site, 
'curroi*, trans. nam, 
curroi*, st.num, 
curroi*, aa.num, 
otcaaf  lg,  isatv) ; 

(*  purge  the  system  of  this  aa's  ch's  *) 
rollcac*.ch(curroi*, mit.site,  curroi*. trans. num, 

curroi* , st-num,  curroi*.aa-num,  false); 


(*lf  the  atomic  action  most  lKely 

tnen  roll  it  back*) 
IF  isatv  THEN 

rolltack-tv(curroi*.i nit. site, 
curroi* . trans. num, 
curroi* .st-num, 
curroi* .aa. num, 
curroi* .ao. la, 
oktvf lg) ; 
value  and  release  tne  a 
THEN 


createa  a  temo  ver 


loc<  if  oresent*) 


(♦reset  s 
(*  IF  oxtvflg 
3EGIN 

set.s (curroi*. do. id); 

IF   do. array [curroi*. do-ioj  *.s.cnt   < 

ac.array [ curroi* .do-id J *.n.cnt  THEn 
releas e. lock (curroi*. a o-ii); 
END;  *) 
(*If  both  aa   and  tv  *ere  rolled  cacxea, 
IF  o<aaflg  ana  ofctvtlg  tnen 

curroi  :=  curroi*. nxt 
(*rnen  aRITe  an   error  warning 
ELSE 

dEGIN 

wHITELM(audit, 

'attempt  to  rolbacx  an 
wkITEln (audit ,  curroi  *.  in  it.  site 
"curroi* .trans.num  :  4, 
curroi*  ,  st. num.  :  4, curroi*. aa.num 

4); 


continue*) 


and  tnen  continue*) 


aa,  tv 


that  was 

4, 


not  there'); 


4, 


curroi 
end; 
until  curroi 
l  :  IF 


curroi  .do-id 
=  curroi*. nxt 


=  nil; 
rolloacc-ptr  <> 
BEGIN 


nil  THEN 


lb3 


re. ptr  :=  roiiDacK.ptr; 
oK-flg  :=  true; 

rollbacK-ptr  :=  rolibacK.ptr*.nxt ; 
END 
ELSE 

ok. fig  :=  false; 
IF  ok. fig  THEN 
BEGIN 

C*DlSPGSE(re.ptr) ;*) 
goto  l; 
END; 
END;    (*proc  rollback) 

(*»****^!*f*  ****************************************  ***▼**?*) 

PROCEDURE  restore. sr  trei.ptr  :  ptr.ch); 

(*  This  procedure  will  restore  serializaole  execution  at  the 
local  data  object.   It  receives  as  input  a  list  ot 
conflict  nistory  pairs  wnicn  are  all  involved  in  cycles 
and  outputs  a  list  of-  aa's  *hicn  mast  be  reexecutea 
linearly.  *) 

VAR 

rollback. ptr,  roll.cn.Dtr  :  ptr.cn; 

bEGIN 

•<RIT£L^(audit ,  'restore,  sr  is  restoring  sr'); 

C*  produce  the  list  of  aa's  to  oe  rolled  oac*  *J 

determine. rolloacK  (rel.ptr,  rolloacK.ptr ) ; 

C*  roll  those  temp  versions  bacx,  and  ail  related  ones  * ) 
rolloacK  croliDacK.ptr ,    roll. en. ptr) ; 

(*  upaate  all  conflict  histories  to  reflect  tne  rollea 

oac<  tv's  *) 
C*  rollbacK.cn  (roll.cn.otr ,  'y',  o,  false);    *) 

END; 

(_^4t^********?*********#****¥*»****4**********»********:)t***:»:) 

PROCEDURE  marK. temp. version  (status  :  cnar; 

marK.aa.Dtr ' :  ptr. aa; 
marK. st. ptr  :  Dtr.strans; 
marK-tr-Dtr  :  ptr. trans); 

C*this  marKs  the  most  recently  created  temp  ver  as  either 
t(r)  or  t(w).  if  the  temp  ver  is'marKed  t(r),  tne  sao 
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trans  ana  trans  wnicn  created  tne  terno  ver 
quantity  fields  adjusted  as  required*) 


nave  tneir  1 1  r ) 


VAR 


tviptr 
readf  lg 
Dtrtotv 
donum  ; 


ptr.tv; 
:  boolean; 
:  ptr.tv; 
integer; 


BEGIN   (*mar<-temp.version*) 

f  ind.tv(ma ric.aa.ptr*. aa.id.tr an s.site,  init.site, 
ma r<.aa.ptr*,aa-ld. trans-site, trans-num, 

marK.aa.ptr*.aa.ia,st-num, 

mark.aa.ptr*  .aa.io.ad.nun. , 

marlc.aa.ptr*.aa-ia,do-id, 

ptrtotv) ; 
wRITELN(auait » "marK-temp.ver  mar  icing  : '  J ; 
wRI IE (audit ,  ma rx.aa.pt r* . aa.id. trans. site. in  it. site  : 
ma  ric.aa.ptr*  .aa. ia.  trans. site,  trans -n up 


4, 


marx.aa.ptr*  .aa.ia.st-num 
mar<-aa.otr*  .aa.ia.aa.nuit 
marK.aa.ptr*  .aa. ia.ao-ia 

wRiTELN(audit)  ; 

case  status  or 


4, 

**  f 
4); 


'r'  :  ptrtotv*. stat. fid  :=  'r'; 

'*'  :  ctrtotv*. stat. fid  :=  '*'; 

'z*  :  BEGIN  (*case  z*) 

readtig  :=  true; 

donum  :=  marK-aa. ptr* .aa. la. do-la; 
tviptr  :=  do-array (oonumj *.tv.ptr; 
IF  tviptr  =  nil  THEM 

BEGIN 

viRI  TELN  (audit ,  'TdrK  temp  tried  to  mar*  a'); 
^KirtLiM  cauait , 'te-np  *nicn  was  not  there'); 
ARITEL;\(aucit,mar<-aa.ptr*.aa.id, 

trans. site. in it- site, 
marK-aa-Ptr*  ,aa. id.  trans-site. 

trans-nuiti , 
maric-aa-ptr*  ,aa-id.  st.nutn, 
marK-aa-ptr*.aa-ld.aa-num, 
mar<.aa-Ptr*.aa-id,ao-ia ) ; 
END 
ELSE 

8EGIN 

while  tviptr  <>  nil  DC 

BEGIN   (*whlLE») 

IF  (tviptr*. aa. id. r.w. fig  =  'r') 
"and  (readilg)  THEN 
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tviptr^.stat.f la  :=  *r' 

else 

IF  C tvlDtr^.aa.id.r-w-rlg  = 

'r')  end 
(N01  readflg)  ThEN 
tviptr*.stat-f la  :=  '*' 
ELSE 

IF  ttvlptr*.ad.id.r-w«f la  : 

'*•)  and 
(readflg J  THEN 
oEGIN 

tviptr-.stat.fld  :=  'r' 
re ad fig  :=  false 
END 
ELSE 

IF  ( tvlptr* .aa-ia. 

r.w.flg  =  rw'3  ana 
(NOT  reaaflg)  rhcH 
tviptr*.stat_f la  := 

tviptr  :=  tvlptr*.nxt; 

END;   C**HiLt*J 

end;   (»else*} 
End;    (*case  z*) 
END;   (*case*) 


IF   Dtrtotv*. stat. fid  = 


_   9  r-  * 


TnEw 


BEGIN  (*IF  is  r*) 

marK:.st.ptr',.aa-tr-.qty  :  = 

marK.st.ptr-.aa.tr.qty  +  l 
IF  mar.<_st_ptr*.aa„tr-Mty  > 

marK.st-.ptr*.aa.acy  THEN 
BEGIN 

marK-st«.ptr'">,aa.tr-.qty  :  = 

marK«,st«ptr".aa_qty; 
wRIIELn  (audit ,  'in  iiiarKtercp"  tne  aatr  qty'3 
WRiIEuN (audit , 'exceeaea  tne  aa    qtyr); 

IF  marK.st_ptr".aa_tr-dty  = 

marh..st-ptr*.aa.aty  THEN 
■nar<.tr-ptr*  .st.tr-qty  :  = 

manc.tr.ptr".st.tr-.qty  +  i 
IF  marK_tr_ptr*.st.tr-qty  > 

marK.tr. ptr~.  st.qty  THEN 

BEGIN 

mar*.tr.ptr* .st-tr.qty  := 

mar<.tr.ptr*.st.aty; 
**ITELN (auait , 'in  marKtemp'tne  sttr  qty'j 
mriiTELNCaualt , 'exceeded  tne  st  qty*); 
END; 
END;    C*IF  is  r*D 
END;    (*rnar<  ~  temp  version*; 
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PROCEDURE  enter-locx-queue  (enter-aa.otr  :  ptr.aa); 

(*  tnis  enters  an  atomic  action  into  tne  Iock  queue  at  a 
data  objecc  wnen  the  atomic  action  rinds  tne 
data  ooject  loc<ed  *) 


VAR 


nulocptr, tvlptr  :  ptr.locx.q; 
enter.st.ptr  :  ptr.strans; 
enter. tr.ptr  :  ptr. trans; 
donum  :  integer; 


BEGIN    c*enter  ioc< 
(*ouild  ana  ioad  tne 
NE*(nulocptr) ; 
nulocptr*. nxt  :=  nil; 
nulocptr*. aa.id.trans.si 
enter. a a. ptr*. a a. id. t 
nulocptr*.aa.id~,  trans.si 
enter.aa.ptr*,aa.id. 
nulocptr*. aa. id. st. hum  : 
nulocptr*. aa. id. aa. num  : 
nulocptr*. aa.ia.r-*. rig 
nulocptr*. aa. id, ao. id  := 
nulocptr*, aa.ia, en. seq  ; 
nulocptr*. aa.ia. metric  ; 
rfRII£LN(auait ,  'entering 
*KlTELN(audit , enter-aa.p 
trans-site, init 
enter. aa.otr* .a 
enter-.aa.Dtr*. a 
enter.aa.ptr* .a 
donum  :=  encer.aa.ptr* .a 
(♦set  tne  atomic  action 
enter.aa.ptr*.  in.ioci-cq.r 
(♦enter  tne  atomic  actio 
IF  do.array laonumj *, Iock 
do.array tdonumj  *, Iock 
ELSt 

BEGIN   ('ELSE*) 

tvlptr  :=  do.array 
WHILE  tvlptr*, nxt 

tvlptr  :=  tvipt 
tvlptr*. nxt  :=  nul 
End;    (*cL3E*) 
END;    (*enter  Iock  queu 


aueue*) 

new  Iock  queue  mem per  data*) 


te, init 
rans.sl 
te. cran 
trans. s 
=  enter 
=  enter 
:=  ente 
enter- 
=  enter 
=  enter 
tnis  aa 
tr*. aa. 
-sice  : 
a. io.tr 
a.id.st 
a. id  «aa 
a. id ,ao 
Iock  tl 
lg  :=  t 
n  into 
-g-ptr 
-q-ptr 


CdonumJ 
<>  nil 
r*.nxt; 
o  c  p  t  r ; 


site 
e.in 
-num 
te,  t 
aa.p 
aa-p 
.aa. 
a.pt 
aa«p 
aa— p 
in  t 
d. 
4, 

ns.s 
num 
nun 
ia; 
la  a 
ue;  ' 
he  1 
nil 
=  n'u 


it.site; 

rans.num; 
tr * .aa.id . st.n 
tr* ,aa. id, aa.n 
ptr*  .aa.ia.  r.* 
r* . aa.ia . ao.ia 
tr"*, aa.id  .cn.s 
tr*  .aa.ia.  -netr 
ne  lock  queue' 


ufii; 
un. ; 
-rig; 

t 

eq? 
ic; 
); 


ite. trans. num 

:  4); 

s  locKec  out*) 

ock  queue*) 

I  HEN 
locptr 


4, 


*,iock.a-ptr; 
Do 


e*) 


(***  +  ****  +  *  ************************  *******************•*****) 
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PROCEDURE  sort.cn  (inlistptr, sortlistotr  :  ptr.cn; 

"ind. insert  :  ooolean; 
VAR  sort-insert  :  ooolean); 

(*this  inserts  a  linKed  list  of  conflict  nistories  pointea 
to  oy  inlistptr  into  a  sorted  list  pointed  to  Dy 
sortlistptr  sorted  order.  Duplicate  members  are  not 
inserted  in  tne  list.  If  tne  ind-insert  flag  is  on,  the 
sort-insert  flag  is  true  if  an  insert  occured.  a  neaaer 
ana  a  trailer  are  used  in  tne  sorted  list  for  ease 
of  insert.*) 

VAR 

sch-cn-ptr ,fcaseptr ,leadptr,nucnptr  :ptr_cn; 
nupairptr  :  ptr.cn. pair; 
dupfig  :oooiean; 

PROCEDURE  determine. aup  (det.aa.ptr ,  leaoptr  :  ptr.cn; 

"VAR  dupfig  :boolean); 

C*  this  sets  dupfig  true  if  the  conf  hist  pointea  to  cy  tne 
two  input  pointers  are  duplicates  *; 

BEGIN   (♦determine  dup*) 

IF  '  (det-aa-ptr*.aa.id. trans -site, in it. site  = 
le ad ptr*. a a- la. trans-site, lnlt-site)  and 
Cdet-aa-ptr*iaa-id.  trans.s  it  e.  trans -nutr  = 

leaaptr*.aa-id,trans-site.trans-num)  A;nD 
Caet-aa-ptr* .aa-ld. st-num  = 

leaaptr^.aa-id, st-num)  and 
(det-aa-ptr*.aa-ia.aa-num  = 

leadptr*,aa-id.aa-nu«Ti)    Ai\c 
Cdet-aa-ctr*.pair-ptr",aa-ia .trans. site. in it. site   = 

leadptr*.oalr-ptr*.aa-id.  trans-site,  init.site)    amj 
C det-aa-ptr*. pa ir-ptr* , aa-ld, t ran s.s ite.tr an s.num   = 

leadptr*,pair-ptr*.aa-id.trans-site,trans-nurn)    a^L 
(aet-aa-ptr*  ,pair-ptr*.aa-id.  st-num   = 

leaaptr*.pair-ptr*.aa-id.st-nuin)  and 
(det.aa.ptr*.pair-ptr* . aa-id,aa-num  = 
leadptr* , pair-ptr*.aa-id.aa.num)  THEN 
dupfig  :=  true; 
end;     (♦determine  duD*) 

(******** ************ +1*******************4**1**** *********) 

begin   (*sort  ch*) 

scn-cn-ptr  :=  Inlistptr; 
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while  scn.cn-ptr  <>  nil  vQ 
BEGIN    C*r2*) 

baseptr  :  =  sortiis 

leadptr  :=  Daseptr 

dhiLE  leadptr*. aa- 

scn.cn-ptr*. 

BEGIN   C*r3*T 

Daseptr  :=  1 

leadptr  :=  1 

end;   c*ri*) 

IF  leadptr*, aa. Id. 

scn-cn-ptr* .aa. 

IF  Nuicsch-cn-p 

"leadptr* 

WHILECleadpC 

'=  sen. 


tptr; 

*  .  n  x  t ; 

id. trans-site, init«site  < 

aa.id  .  trans-site,  mit.site  do 

eaaptr ; 
eaaptr*,nxt; 


tran 
id.t 
tr*. 
.aa- 
r*.a 
cn-p 


iscn-cn-pt 


eeci 


dupflg  := 
determine 

IF  NOT  dU 

BEGIN 

Nil** 

nuc 
nuc 
das 

nup 

nup 


END; 


nuc 
IF 

end; 
sen-en. pt: 
END?   (*r2*J 

(*sort  en*) 


END 

fa 

-du 
Pil 
C* 
(nu 
(nu 
npt 
npt 
ept 
air 

s 
air 

s 
npt 
ind 
sor 


le 
In 

ba 
le 

• 
9 

IS 

p( 
g " 
r5 
en 
Da 
r* 
r* 

pt 
en 
?t 
en 
r* 
-i 
t- 
C* 


adpt 
C* 
sept 
adpt 
C*r 
e; 

lead 
THEN 
*) 

Ptr) 
irpt 
.pal 
.nxt 
•  nxt 
r*,a 
-en. 
r*..-n 
-cn- 
.aa- 
nser 
inse 
r5*3 
scn- 


r*.a 
r4*} 
r    :  = 

r    :  = 

4*) 


s-site.  imt-site   = 
rans.site, init-site   then 
aa-id, trans-site. trans.num    < 
id. trans -site. trans -n urn  J    i  HEN 
a-Id, trans-site. in it-site 
tr*.aa-id,trans-site. 

init-sltej  kuu 
r*.aa-ia. trans-site. 

t  r  a  n  s  -  n  u  m  > 
a-la. trans-si te, trans-num J  DO 

leadptr; 
leaaptr*. nxt; 


ptr ,scn-cn.ptr ,aupf lg) ; 


r); 

r-ptr  :=  nupairptr; 

:=  Daseptr* .nxt; 

:=  nuenptr; 
a-id  := 

ctr*.pair-Dtr*.aa-id; 
etric-sum  :  = 

ptr*. pai r-ptr*. metric-sum; 
lo  :=  scn-cn-ptr*. aa-ia; 
t  THEN 
rt  :=  true; 

cn-ptr*.nxt; 


PROCEDURE  add-anc-detect  (add-cn.ptr  :  ptr-cn; 

VAK  *as-non-sr  :  oooiean; 
vak  roil-cn-ptr  :  ptr-cnj; 
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C*  Tnis  adds  a  neader  and  a  trailer  to  tne  input  conflict 
nistory  list  and  calls  tne  detect  non-sr  proc.   ir  non-sr 
is  detectea  the  flag  "was.non.sr"  is  set  to  true,   ihe 
neader  and  trailer  are  stripped  off  Drior  to  return  *; 


VAR 


out.cn. ptr,  tvlptr,  ch-.dispose-.Ptr 
pout. en. ptr  :  ptr-ch-pair; 


ptr.cn; 


BEGIN 

was.non.sr  :=  false; 

C*  add  neader  and  trailer  *) 
aad.n.and.t  (add.cn. ptr J ; 


(*  see  it  non-sr  exists  *) 

detect. non.sr  (ada.cn. ptr,  was.non.sr, 


roil.cn.ctr ) ; 


C* 

LV 
WH 

en 
tv 
lb 

en 
ad 
DI 
E  N  D ; 


strip 
lptr  : 
ILE  tv 

tvlpt 
.dispo 
lptr*, 

cn.di 

UiSPC 

.dispo 
d.cn.p 
SPGS£( 


oft 
=  add 
lptr* 
r  :  = 

se.pt 
nxt  : 

spose 
S£(cn 
se.pt 
tr  :  = 
cn.di 


nead 
.ch. 
.nxt 
tvlp 
r  s  = 
=  ni 
-ptr 
-dis 
r  :  = 
acd 
spos 


er 
Ptr 
~.a 
tr* 

tv 
1; 

<> 

DOS 

ad 
-en 
e-p 


and  trailer  *} 

a. id, trans-site. init.site  <>  *A*  uc 

.nxt; 

lptr*.nxt; 

nil  TttEN 

e.ptr) ; 
d. en. ptr ; 
-ptr*, nxt; 
tr); 


^t*******^********************** *************** 

^»M^^^^^^X*****^*************^*********^****** 


PROCEDURE  sort.tr.cn  ( sort-ptr, merge. Dtr  ;  ptr.cn; 

VAR  out.cn. ptr  :  ptr.cn; 
VAR  insert. fig  :  oooieanj; 

(*  tnis  sorts  tne  list  of  conflict  nistories  oointea  tc  oy 
sort. ptr  and  merges  Into  tne  sorted  list  tne  list 
pointed  to  oy  merge. ptr.   no  duplicates  are  allowed  in 
tne  final  sorted  list  pointed  to  oy  out. en. ptr.   If  any 
inserts  to  tne  final  list  came  from  tne  merge  list, 
tne  insert. fig  is  set  to  true,*j 

VAR 

pout. en. ptr  :  ptr.cn.pair; 
sort. insert  :  Dooiean; 
tviptr  :  ptr.cn; 

begin   (*sort  tr  cn*j 
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insert. fig  :=  false; 

(*add  a  neaaer  and  trailer  en  recora  to  tne  outputlist*) 
out-cfi-ptr  :=  nil? 
aaa.n.and.t" (out.cn.ptr) ; 

IF  inerge.ptr  =  nil  then 

sort.cn(sort.ptr  , out-ch-ptr  ,t  ALSE,  sort. insert  j 
ELSE 

IF  sort-ptr  =  nil  THEN 
BEGIn   (*1*J 

insert. fig  :=  IROE; 

sort.cn  U.erge.ptr  , out.ch.Dtr ,  false,  sort. insert); 

END    (*1*) 
ELSE    (*neitner  pointer  is  nil*) 
BEGIN    (*2*) 

sor t. en (sor t.ptr, out. cn-ptr,FALSt, sort. insert); 
sort.cnCmerge.ptr  , out.cn.pt r  , TRUE ,  sor t. insert  3  ; 
if  sort. insert  in EN 
insert-fig  ;=  TrtUE; 
END;    (♦2*) 

(*  strip  off  neader  and  trailer  from  output  list*) 

tvlptr  :  =  out.cn.ptr; 

WHILE  tvlptr*. nxt*. aa. id. trans-site. init. site  <>  'A'  DO 

tvlptr  ;=  tvlptr*. nxt; 
tvlptr*. nxt  ;=  nil;" 
out.cn.ptr  :=  out.cn.ptr* .nxt ; 
end;    (*sort  tr  en*) 

PROCEDURE  resolve. gloDal.sr  (ptrtotr  :  otr. trans; 

vah  res.cn.ptr  :  ptr.ch; 
VAR  was.non.sr  :  ooolean; 
var  roii.cn.ptr  :  ctr.cn); 


C*tnis  resolves  glooal  non-seriaiizaoiiity  by  aetectiny  non- 
serializaoility  on' tne  concatenation  or  conflict  nistories 
for  tne  input  transaction.   ine  iterative  process  of 
concatenation  of'conflict  nistories  and  aetection  of 
non-ser  insures  that  tne  detection  process  and  tne 
resultant  resolution  process  are  exhaustive  for  a  given 
transaction,  roii.cn.ptr  points  to  tne  Tiinimal  conflict 
nistory  to  roll  Dacx*) 


VAR 


tr. 
i 


r.array  ;  arrayCl.,99]  of  integer; 
t.array.f lg,  f ound.a.one, rot.tr -en,  ins 
:  integer; 


ert-flg  ;  coolean; 
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tvlptr  :  ptr.trans; 

sortptr,mergeptr, tempptr,nxt-trcn.Dtr  :  Dtr.cn; 

(*  procs  for  res  glo  sr  *) 

PROCEDURE  set. array  tset-ch-ptr  :  ptr.ch); 

(*  tnis  puts  a  1  into  eacn  index  slot  which  is  not  a  1  or  a 
2  for  eacn  transaction  found  in  tne  input  list  ot 
conflict  histories.   The  inaex  is  tne  trans. num  rieia 
in  tne  conf  hist*) 

VAR 

tvlptr  :  ptr.cn; 

BEGIN   (*set  array*) 

tvlptr  :=  set.cn.ptr; 
while  tvlptr  <>  nil  DO 
BEGIN   (*1*) 

IF  tr.arrayltvlptr*.aa.ia,trar.s.site, 

trans. num] ' =  o  then 
tr-arrayCtvlptr^.aa.ia.trans.site. 

trans.num]  :=  1; 
IF  tr.array[tvlptr*.pair.ptr*.aa.id. 

trans. site, trans. numj  =  u  ihen 
tr.array  itvlptr~.pair.ptr*. a a. ia. 

trans. site",  trans. numj  :=  l; 
tvlptr  :=  tvlptr*. nxt; 
END;   C*l*) 
END;   c*set  array*) 

PROCEDURE  find. a. one  (VAR  nxt.trch.ptr  :  ptr.cn; 

VAR  found.a-one , mt.tr.cn  :  boolean); 

C*thls  attempts  to  find  a  1  in  tne  tr.array.   if  a  1  is 
found,  a  pointer  to  tne  transaction's  conflict  nistory 
with  tne  same  trans. num  as  tne  inaex  in  the  array  is 
returned, the  found. a. one  flag  is  set  to  true  ana  if  the 
transaction  conflict  is  not  empty  the  mt.tr. ch  flag  is 
false.  If  no  1  is  found  the  found. a. one  is  returned  talse. 
If  a  1  is  founa  out  tne  transaction's  conflict  is  ernpty, 
the  mt-tr.cn  flag  is  set  to  true*) 

VAR 


Idx,i  :  integer; 
tvlptr  :  ptr. trans; 

BEGIN   (*flnd  a  one*) 
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i  :=  l; 

mt.tr.cn  :=  false; 
found.a.one  :=  false; 
nxt.trcn.ptr  :=  nil; 
iHILE  NOT  (1  >  *9J  uO 

IF  tr.arraycu  =  1  THEN 
BEGIN    C*1*J 

f ound.a.one  :=  true; 

tr-arrayUJ    :=   2; 

idx    :=    i; 

1    :=~ioo 

END 
ELSE 

i    :=   l  +   l; 

IF  found. a. one 'THEN 
dEGIN   (*2*) 

tvlptr  :=  trans. ptr; 

I?  tvlptr  =  nil  THEN 

*KU£LN(audit, 

"'error, find  a  l  found  mt  trans  list') 
ELSE 

WHILE  tvlptr  <>  nil  DU 
BEGIN 

IF  tvlotr*. trans. site. 

trans-num  =  iax  ihen 
l^   tvlptr*. trans-cn.ptr  <>  nil  rwfc'N 
nxt-trcn-ptr  :=  tvlptr*. 

trans. ch.ptr; 
tvlptr  :=  tvlptr*. nxt; 
end; 
end; 
IF  nxt.trcn.ptr  =  nil  THEN 
int.tr.cn  :=  true; 
end;    C*find  a  one*; 


(*  main  loop  res  glo  sr  *) 
BEGIN 

*fiIT£(audit, 'entering  resolve  giocal  sr  for  trans  = 
*RITE(audit ,ptrtotr*. trans-site, init. site  :  3  ); 
arilTELNCaualt ,otrtotr* .trans. site. trans. num  :  3  ); 
FOR  i  :s  1  TO  99  DO 
tr.arrayiiJ  :=  0; 
mt. array. fig  :=  false; 
*as.non_sr  :=  false; 

tr. array Cptrtotr*,trans.site. trans. num]  :=  2; 
set.array (res.cn.ptr) ; 

*HILE  (NOT  mt. array. fig)  bttU    (NaT  was.ncn.sr)  DC 
a€.Gl^      C  *  1  *  3 

found. a. one  :=  false; 


)  ; 
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mt-.tr.cn  :=  true 

f Ind-a-one(nxt-t 

IF  (f ound-a-one) 

BKGIN  (*2*) 

insert-fig 

sort-tr-cn 

Ptrtotr~.t 
res-cn-ptr 
set-array( 
IF  insert- 

BEGIN 

wRiltCaud 
'  d 

*RITt(aud 

*RITE(aua 

*RITtLN(a 

was.non.s 
add- ana- d 

end; 
end;    (*2*) 
IF  NCI  founa-a-o 
mt.array-f lg 
end;    (*l*)" 


; 

rch-ptr , f ound-a-one,nt_tr-cn ) ; 
AND  (NUT  nrt-tr-cn)  rhEW 

:=  f  al  sev- 
ere s-cn-ptr,nxt-tr  cn-ptr  ,  temoctr , 

insert-fig) ; 
rans-cn-ptr  :=  tempptr; 

:=  tempptr; 
res-cn-ptr ) ; 
fig  rnt.'i 

it, 'resolve  qlooal  is  calling', 
etect-non-sr  tor  =   ');" 
it,ptrtotr*.trans-site. 

imt-site    :    4    ); 
it,ptrtotr*. trans-site. 

trans-num    :    4    ) ; 
udit); 
r    :  =    t  a  l  s  e ; 

etect (res-cn-ptr , was-non-sr , 
'roli-cn-ptr) 


ne  thlw 
;  =  t  r  u  e  ; 


END; 


(♦resolve  global  sr*) 


PROCEDURE  detect-global-sr  Cglobal-fig  :  boolean; 

vak  commit-flg  :  boolean; 
vAk  tr-ptr  :  otr-trans; 
locKq-cn-ptr  :  ptr-cn); 

(*  mis  procedure  will  aetermine  it  tne  transaction  conflict 
nistories  presently  indicate  seriaiizaole  activity.   if 
so,  tne  commit-flg  will  return  true;  otnerwise,  false.  *j 


VAR 

dummy,  non-sr  :  boolean; 
roii-cn-ptr  ;  ptr-cn; 

BEGIN 

wriieln (audit, 'entering  detect-glooal-sr ' ) ; 
IF  glODal-fig  a  false  THEN 
BEGIN 

sort-tr-cn  ( tr-ptr*#  trans-cn-ptr  ,  loc.<q-cn-ptr  , 
tr-ptr* . trans-cn-ptr ,  dummy); 
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aaa. and. detect  ( tr.ptr* . trans. en. ptr ,  non.sr, 

roll. ch. ptr j ; 
IF  non.sr  THEN 

restore. sr  (roil.cn. ptr) 
ELSE. 

resolve. gloDal.sr  ctr.Ptr,  tr.ptr* . trans. cn.ptr , 

"non.sr,  roll. en. ptr J ; 
IF  non.sr  IhEN 

restore. sr  Croll-cn.ptr ) ; 
END 
ELSE 

dEGIM 

sort.tr.cn  (tr.ptr*. trans.cn. ptr ,  locKq.cn. ptr , 

"tr.ptr*. trans.cn. ptr ,  dummy); 
add. and. detect  (tr.ptr* , trans.cn. ptr ,  non.sr, 

roll-en. ptr ) ; 
IF  non.sr  THEN 

restore. sr  (roll. cn.ptr ) 
ELSE 

resolve. glooai.sr  (tr.ptr,  tr.ptr* . trans.cn.ptr , 

"non.sr,  roll. en. ptr j ; 
IF  non.sr  THEN 

restore. sr  (roll-en. ptr ) 
ELSE 

commit. fig  :=  true 

END 

END; 

(**********************************************************) 
(****************«********************************«******«*) 

PROCEDURE  aetect.deaoiocK  Caa.ptr  :  ptr. aa; 

st-ptr  :  ptr.strans; 
tr.ptr  :  Ptr.trans); 

(*  tnis  proceaure  will  aetect  ana,  it  necessary,  resolve  tne 
deadlocK  wnicn  can  occur  wnen  acomic  actions  are  placed 
in  Iock  queues  *) 

VAR 

oase.tv.ptr,  ta<e.tv.ptr,  f axe-list-ptr  :  ptr.tv; 

faxe.end.ptr  :  ptr.tv; 

locKq.cn. ptr ,  temp. en. ptr,  st.cn. ptr  :  ptr-cn; 

temp. locK. ptr  :  ptr. Iock. q; 

glooal.flg,  commit. fig  :  boolean; 

donum  ;  integer; 

BEGIN 

WRITELN  Caudlt,  'cnecKing  deaalocK  tor  aa    :'); 
WRITE  (audit ,aa. ptr*. aa. id 

, trans. site. init. site  :  2); 
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WRITE  (audit ,aa.ptr* .aa.ia 

.  trans. site,  trans.nurn  :  '2  ) ; 
*RIT£  (audit, aa.ptr*.aa. id. st. num  :  2); 
aRITE  (audit ,aa.ptr*.aa.ic. aa. num  :  2); 
WRITELNCaudit); 

(*  construct  "taxe"  temp  versions  from  the  aa's  in  tne 
locK  queue'so  that  a  complete  conflict  history 
can  be  Duilt  *) 
fa<e.iist-ptr  :=  nil; 
donum  :=  aa.ptr*.aa.id.ao.id; 
tenp.iocK.ptr  :=  ao. array  [donumj  * . locK.q.ptr; 
*nILE  temp.locK.ptr  <>  nil  DC 
aEGIN 

new  (faKe.tv.ptr); 
*ITH  temp.locK.ptr*. aa-id  Du 
3  EG  IN 

f aK e. t v. ptr*,aa. id. trans. slte.init .site  := 

trans.site.  mit-site; 
faKe. t v. ptr*. aa.ia. trans. site. trans-num  :  = 

t r an s.site. trans.nurn; 
faKe.tv.ptr* .aa.ia. st-num  :=  st.nu*; 
f axe.tv.ptr*.aa.ia.aa-nui'.i  :=  aa.nu^; 
f aKe.tv.ptr* ,aa. id. r.w. fig  :=  r.fc.fla; 
faKe.tv.ptr* .aa.ia. ao-ia  :=  do-ld; 
f aKe.tv.ptr*. aa.ia.cn. seq  :=  en. sea; 
f a<e.tv.ptr* .aa.ia. metric  :=  metric; 
f aKe.tv.ptr*. tv.cn.ptr  :=  ml; 
WRlTELN(audit,  'creating'faKe  tv  for:'); 
WRUECaudit,  trans. site.  mit. site  ;  .2 , 
'trans. site. trans. num  :  2, 
st. num  :  2, 
aa.num  :  2, 
do. id  :  2); 
WRHELN(audit); 
end;   (*  with  *) 
IF  f a<e.list.ptr  =  nil  THcN 
BEGIN 

f a<e.iist.ptr  :=  faKe.tv.ptr; 
fa^e.end.ptr  :=  faKe.tv.ptr 
END 
ELSE 

BEGIN 

fa<e.end-ptr*.nxt  :=  faKe.tv.ptr; 
f axe-ena-ptr  ;=  faKe.tv.ptr 
£nd;  " 
temp.iocic.ptr  :=  temp.locK.ptr*  ,nxt; 
end;   (*  wnile  *) 
f aKe.tv.ptr~.nxt  :=  nil; 

(*  nang  the  faKe  tv  s  at  the  tv  *) 
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base.tv.ptr  :=  do. array  [donuoij  •*. tv.ptr; 
IF  ao.array  [donumj  *.  tv.ptr  =  nil  THEi* 

do.arrayioonumj *. tv.ptr  :=  fake. list. ptr 
ELSE  BEGIN 

(»riIliL  case. tv.ptr*. nxt  <>  nil  UO 
oase.tv.otr  :=" base. tv.ptr*. nxt; 

base. tv. per*. nxt  :=  faKe. list. ptr; 
END; 

(*  If  conflicts  exist,  construct  ana  save  conflict 

ni story  *) 
locKq.cn. ptr  :=  nil; 
IF  detect. conflict  (donum)  IH£N 

detm. conflicts  Cdonum,  locKd.cn. ptr ) ; 
cooy.cn  ClocKq.cn.ptr ,  temD.cn. ptr ) ; 
temp. lock. ptr  :=  do. array [donumj * .lock. q. ptr; 
*HIL£  temp. lock. ptr*. nxt  <>  nil  DU 

temp.locK.pt r  ;s temp.iocK.pcr" .nxt; 
temp. lock. ptr*. lock. cn.ptr  :=  temp.cn.ptr; 

C*  remove  tne  fa<e  tv  from  tne  tv  list  *) 
IF  pase.tv.ptr  =  nil  THEN 

do. array  CdonumJ * . tv.ptr  :=  nil 
ELSE 

case. tv.ptr*. nxt  :=  nil; 

C*  ada  tne  current  aa   st's  ch  to  trie  locxq.ch  *J 
coDy.cn  Cst-ptr*. st.cn.ptr ,  st-cn.ptr); 
IF  ioc<q.cn.ptr<>  nil  then 
BEGIN 

temp.cn.ptr  :=  loc<q.ch.ptr ; 
*nlL£  temp. en. otr*. nxt  <>  nil  ou 

temp.cn.ptr  ;=  temp. cn.ptr*. nxt ; 
temp. ch. ptr* .nxt  :=  st.cn.ptr" 
E.MD 
ELSE 

locKq.cn. ptr  :=  st.cn.ptr; 

C*  detect  and  resolve  any  deadlock  *j 
IF  locicq.cn. ptr  <>  nil  the* 
BEGIN 

glODai.flg  :=  false; 

detect. global. sr  (glooai.flg,  commlt-flg,  tr.ptr, 

locxq.cn.ptr) 

END 
END; 

PROCEDURE  update. finisnea.qty  lfin.st.ptr  :  ptr.strans; 
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fin.tr.ptr  :  ptr-trans); 

(*  This  procedure  is  only  called  *nen  an  atomic  action  is 
finisned  executing  Cat  step  14).   It  *ill  update  trie  ae 
finisned  quantity  at  tne  suctrans  and  it  the  suotransis 
finisnea  it  #111  move  tne  subtrans  conf  history  to  tne 
trans  ana  update  tne  suotrans  finisnea  quantity.  *) 

VAR 

fin.cn.ptr,  temp.ch.otr  :  ptr.cn; 

BEGIN 

IF  f in.st-ptr~.aa_qty  =  f in.st-ptr* .aa.tin.qty  THEN 
rfRITELN  (audit, 

'ERROR:  step  14  has  rrore  aa"s  rinisnea  *, 
'than  exist'; 
iL5c  BEGIN 

(*  add  1  to  aa  finished  quantity  *) 

t in.st.ptr*.aa.i in.qty  :=  tin.st.ptr* .aa.f m.qty  +  l; 

IF  f in.st.ptf.aa-qty  =  f in-st-ptr* .aa.f m.qty  Then 
BEGIri 

(*  add  1  to  subtrans  finisned  quantity  *) 
f in. tr.ptr*.st-f in.qty  := 

f  m.tr. ptr*  .  st-f  in.qty  +  1 ; 

(*  copy  suotrans  en,  then  add  it  to  the 

trans'  en  *) 
copy.cn  ( f in.st.ptr* .st.ch.ptr ,  f  in.cn-.ptr ) ; 
IF  fin.tr.ptr*. trans. cn-Ptr  =  nil  IHEn 

fin.tr.ptr*. trans. cn.ptr  :=  fm.ch.ptr 
ELSE  BEGIN 

tetr.p.cn.ptr  :=  fin.tr.ptr* .trans. cn-Dtr; 

4HILE  te*p. ch. Ptr* ,nxt  o'nil  Du 
temo.ch.ptr  j=  temp. en. ptr* .nxt; 

temp. en. ptr*  .nxt  :=  fin.cn.ptr 
END   (*  ELSE  *) 
END   (*  IF  rHEN  *) 

END   C*  ELSE  *) 
END; 

{****  **********************************  *********  +  **********) 

i********** ************************************** **********) 

PROCEDURE  execute  (VAR  seea  :  unsigned; 

" time.aelay  :  integer); 

VAR 

exec. trans. ptr  :  ptr-trans; 
exec.st-ptr  :  ptr.strans; 
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exec.aa. ptr  :  ptr.aa; 
rei.ptr  ;  ptr.cn; 
nave.aa,  non.sr  :  ooolean; 

BEGIN 

nave.aa  :=  taise; 

C*  "randomly"  select  next  atomic  action  to  execute  *) 
select. aa  Cnave.aa,  exec. trans. ptr ,  exec.st.otr, 
exec.aa. ptr ,    seea); 

(*  execution  sequence  *) 
IF  nave.aa  rHErt  6EGIN 

exec.aa. ptr*. step. nam  :=  exec. aa. ptr*. step. nun  ♦  l; 

CASE  exec.aa. ptr* .step. num  Ot 

1  :  C*  if  lociced,  tnen  time-out, 

else  acquire  loc<  *j 
IF  locked  texec.aa.ptr* .aa.id.do.ia j  THEN 

time.cut C time.aeiay ,  exac.aa.ptr ) 
ELSE  dEGIft 

acquire. loc<  Cexec.aa.ptr* .a a. id. do. la , 
exec. st. ptr, exec. a a. ptr) ; 
exec.aa. ptr * . s tep.num  :=  exec. aa. ptr* . 

s tep.num  t  i 
ENC;   (*  ELSE  *) 

2  :  (*  remain  nere  until  time-out  finisnea  *j 

(*  If  still  locked,  enter  lock  aueue, 

else  get  lock  *) 
IF  exec. aa.ptr*  .  time. val  <  time. delay  XbE.'v 
oEGIi\ 

I*  continue  to  *ait  tor  time-out  toer.G  *] 
" time. out Ct ime.de lay ,  exec.aa.ptr ) ; 
exec.aa. ptr * . step-num  :=  exec. da. ptr* . 

step.nuir,    -    i 
END       C*    IF    *) 
ELSE 

a  E  G I N 

IF  locked  Cexec.aa.ptr* .aa. id. ao. id)  THEN 
C*  go  to  enter.locK.queue  step  *) 
exec. aa.ptr*. step.num 

:=" exec. aa.ptr* . step.num  +  10 
ELSE 

acqui re-lock i exec. aa.otr* .aa.ia.ao.ia, 
exec.st.ptr, exec.aa.ptr ) 
end;   C*  ELSE  *) 

3  :  C*  remain  nere  until  all  non-local  neks 

are  acquired  *) 
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IF  do-array  Cexec-aa.ptr" .aa-ia.ao-icJ  ".locic.qty 
<>  0  THEN 

exec-aa-ptr*,step.num  s=  exec.da.ptr". 

step-num  -  i ; 

:  (*  rest  and  relax  *) 
non.sr  :=  non-sr; 

I  BEGIN 

(*  read/update  data  object  *) 
create-temp.ver  (exec.aa.Dtr,  exec-st-ptr, 

exec-trans-ptr ) ; 

I*  If  conflict  exists  tnen  invoke  the  local 

concurrency  controller  *) 
IF  detect-conf lict  (exec-aa-ptr *.aa„id 
.do-id)  THEN 
construct-prec-rei  lexec-aa-ptr* .aa.ia 
,do-ia) 

tLSE 

C*  go  to  set  s  to  zero  step  *) 
exec-aa-ptr*  .step-num  :  = 

exec. aa.ptr~. step. num  +  •*; 
end; 

:  (*  store  tne  numoer  or  conflicts  this  te^p 
version  nas  * ) 
set.s  (exec.aa.ptr* .aa.id.do.ld ) ; 

:  C*  tne  local  concurrency  controller  *) 
BEGIN 

detect-non.sr  (do.array  Lexec-aa-ptr~  .aa.ia. 

do-iu]  *  .cn-Dtr",  non.sr,  rei-ptrj; 
IF  non-sr  then 

restore. sr  (rel.ptr) 
tLSE 

exec. aa.ptr" .step-num  :=  exec.aa.ptr* . 

step.num  +•  i 
EMDi      c*  case  7  *) 

:  ( *  mark:  status  as  eitner  t(r)  or  t  r* )  * ) 
BEGIN 

marK.temp.verslonC  *z" ,  exec.aa.pt r ,  e xec.st.pt r , 

exec-trans-ptr) ; 
C*  do  to  check  for  release  lock  step  *j 
exec.aa.ptr* . step.num  :=  exec-aa-ptr" . 

step. hum  +  J 
fe.NO;   c*  case  a  *) 

:  c*  mark  status  as  t(*0  *) 
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BEGIN 

marK-temp. version  ('*',  exec.aa.ptr, 
exec.st.ptr,  exec-trans. per ) ; 
(*  go  to  checx  for  release  Iock  step  *j 
exec.aa.ptr*,  scep.nuoi  :=  exec.aa.pir~  . 

step-hum  +  i 
END;   (*  case  9  *) 


10:  C*  set  s  to  zero  *) 

do-array  [exec-aa.ptr*.aa.la,do.idj  *,  s-cnt  :=  o; 

Hi    (*  mar<  status  as  t(r)  *) 

mar  k-e  em  p.  version  (  *r0 , "  execaa.pt  r , 
exec.st.ptr,  exec. trans. ptr ) ; 

12:  ( *  reiease  short-term  l o c K ,    if  necessary  * ) 
BEGIN 

IF  do. array  Cexec-aa-ptr*. aa. id, do.iaj *, s.cnt  < 
do. array  lexec.aa.ptr",.aa.ia.ao-iaJ  *,n.cnt 
THE* 

release. Icck  (exec.aa.ptr~ .aa.ia.do.ia , 
"exec.aa.ptr ) ; 
(*  go  to  finisned  step  *j 
exec. aa. ptr* • step. num  :=  exec.aa.ptr". 

step.nutn   +    i 
END;       (*    case    12    *) 

13:  (*  time  out  nas  expired  *) 

if    iocKed  (exec.aa.ptr * .aa. id. no.ldj  THEN 
BEGIN 

enter. locK.queue  (exec.aa.ptr j ; 
detect-aeadlccx  (exec.aa.ptr, 

exec.st.ptr,  exec. trans. ptr J 
E.^D 
ELSE 

dcGIN 

acauire.locK  cexec.aa.ptr* .aa_id.ao.ic, 
exec. st.ptr, exec. aa. ptr j ; 
exec.aa.ptr* .step. num  :=  exec.aa.ptr* . 

step. num  -11 
END; 

14:  («  output  whlcn  aa  nas  finisned  and  ucdate 
"finished  quantities"  -  tnls  stepnum 
explicitly  used  in  oroceaure  select.aa  *j 
BEGIN 

*KITELN  (audit,  *tne  aa  at  step  14  is  :*); 
*8ITfc  (audit,  exec. aa. ptr*. aa. id. 
'trans-site. init-site  :  2); 
aRITE  (audit ,exec-aa-ptr*  .aa.ld. 
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trans. site. trans. num  ;  2); 
WRITE  (audit ,exec-aa.ptr*  .aa.id.st.nurr 
WRITE  (audit , exec. aa.Dtr*  .aa.ia.aa.nua. 
rfRITELN(audit); 

update.iinished.qty    ».  execs  t.ptr  , 
exec. trans. ptr j ; 
END;      (*   case    15    *) 


:2) 

:  2) 


END   (*  case  *) 
END    (*  It    THEN  *) 
end;   (*  PROCEDURE  execute 


*) 


PROCEOURE  commit  (com.tr.ptr  :  Ptr.trans); 

(*tnis  commits  a  transaction  atter  ail  temporary  versions 
nave  oeen  labled  tirj.   The  temporary  versions  createo 
oy  tne  trans-  action  atomic  actions  are  aeieted,  a  nistory 
message  is  sent  to  file  audit,  and  tne  temporary  versions 
at  tne  data  objects  *here  a  temporary  version  nas  ceen 
deleted  are  re-labled   t(ri  or  t(wj  as  necessary.*) 


VAR 


tvlptr 


ptr. trans; 


(*  procs  for  commit  main  loop  *) 

(9**¥**:|^:|^;|^*^***:M*************4^***********************j 

PROCEDURE  set.tv.tr  (ptrtotv  :  ptr.tv); 

(*this  sets  a  temp  version  Dased  on  a  committea  t(r)  temp 
ver  to  t(r).  ptrtotv  points  to  tne ' committing  temp  ver  *) 


VAR 


sett.tr. ptr 
sett. st. ptr 
sett.aa.ptr 


:  Dtr.trans; 
:  Ptr.strans; 
:ptr.aa; 


BEGIN   (*reset  tv*) 

(*If  another  tv  is  based  on  tne  current  tv  then  reset  its 

status*) 

IF  ptrtotv*. nxt  <>  nil  THEN 

IF   ptrtotv*. nxf.stat.f la   <>    "r*    Then 
BEGIN      "(*1*) 

ptrtotv". nxt~.stat.tia  :=  'r'; 

f ind.aa(ptrtotv*.nxt*. aa.ld.tr  an s.site. init.site, 
'ptrtotv*. nxt*.aa. id. trans. site. trans. num, 
ptrtotv*. nxt*.aa. id. st.num, 
ptrtotv*. nxt* . aa.ia.aa.num ,  sett.aa.ptr, 
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sett.st..ptr  rsett-tr.ptr) ; 
sett_st_ptr*.aa_tr«.qty    :  = 

sett„5t-ptr*.aa..tr_qty   +    1; 
IF   sett-st-otr".aa»tr-qty   > 

sett.st«.ptr*.aa«.qty   thln 

BEGIim 

sett-st.ptr",ad-tr«qty    := 

sett.st_ptr*.aa_qty ; 
wRITELNCaudit,  'f rom  commie"); 
kRIIELn (auoit , 

'in  mark  temp  tne  aa   tr  qty'); 
*RIi'ELNCaudit ,  'exceeaea  tne  aa   aty'); 
END; 
IF  sett-st.ptr* .aa-tr-qty  = 

sett.st.ptr~ .aa. city  THEN 
sett_tr.ptr*.st.tr-qty  := 

sett.tr.ptr* . st.tr.qty  +  1; 
IF  sett-tr-otr'.st-tr-qty  > 

sett.tr-ptr* .  st.qty  THEN 
BEGIN 

sett.tr.ptr*.st-tr-qty  :- 

sett.tr.Ptr~. st.qty? 
WRlTELNCauqit ,  'f rom  commit*); 
*RlT£LN(audit , 

'in  mar<  temp  tne  st  tr  qty';; 
*&1 IELN (audi t , 'exceedea  tne  st  aty'); 
end; 
end;   C*l*) 
END;     C*reset  tv*) 

PROCEDURE  f ind.aa. commit ( find-as. ptr  :  ptr.aa); 

(*tnls  visits  eacn  atomic  action  of  a  committing  transaction 
and  deletes  tne  tempory  version  createa  oy  tne 
atomic  action*) 

VAR 

donum  :  lnteqer; 
tviptr,ptrtotv  :  ptr-tv; 

BEGIN         C*find    aa    commit*) 
IF    f ind.aa.ptr    <>   ml   THEN 
BEGIN       C*l*) 

f ind-tvtf ind.aa.ptr* . aa.id, trans-site, init.site, 
f ind.aa_ptr*.aa-id, trans. site, trans.num , 
t  ind.aa-ptr~.aa-.id,st.num, 
f ind.aa.ptr* .  aa-id,aa.num, 
f ind.aa.ptr ~  , aa-id.do.id,ptrtotv.) ; 
aonum    :  =    t ind.aa.ptr~ ,aa-id .do. id; 
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IF  ptrtotv  =  nil  then 
BEGIN    (*2*) 
(♦error ,  "could  not  find  the  tv*) 

*K1TELN Caudit,  'commit  coula  not  find  a  tv  ==>'); 
*KITELN(audit,  f Ind.aa-ptr*.aa.id.  trans.site. 
init.site  :4, 
fino-.aa.ptr*  .aa. la. trans-site,  trans. num  :  <* , 
f ind.aa.ptr* .aa.ia.st-num  :  4, 
f ina-aa-ptr* .aa.ia.aa-num  :  4); 
WRITELN(audit) 
END    C*2*J 
ELSE 

BEGIN    C*J*) 

(♦remove  tnis  tv's  conf  histories  from 

all  cn's*J 
rolloacK.cn  (ptrtotv*. aa. id, trans. site 
•lnit.site/  ptrtotv* .aa. id 
.trans. site. trans.num , 
of  o,  trae); 

(♦If  tv  is  first  in  line*j 

IF  do-array [don am j *, tv.pt r  =  ptrtotv  THEN 

do-array [aonum] *.tv.ptr  :=  ptrtotv*. nxt 
ELSE 
(♦the  tv  is  imoeaded  in  the  list  or  tv's*) 
BEGIN    (*4^J 

tvlptr  :=  do-array  laonum  j  *  .  tv.ptr ; 
while  tvlptr*. nxt  <>  ptrtotv  DO 

tvlptr  :=" tviDtr*.nxt; 
tvlptr*. nxt  :=  ptrtotv*. nxt; 
end;    c»4*j 
set.tv-tr(ptrtctvj; 
(♦reset  tne  s-cnt  value  at  the  a.o.  and 

release  the  Iock  if  present*) 
set.s (ptrtotv*. a a. id. a o-ia); 
IF  do.array (ptrtotv* .da-id. do. iaj *. s.cnt  < 
do.array  (ptrtotv*".  aa.id  .do.idj  *".  n-cnt  then 
release.locK(ptrtotv*.aa-ld.do.id, 
rina-aa.ptr ) ; 
Eimd;    (♦3^3 
f ind.aa.commit ( f ind.aa.ptr *, nxt ) ; 
END;    (*l») 
EMD;   (♦find  aa  commit*) 

1 1 ***************************  ************** *******^********) 

PROCEDURE  f ina. st. commit ( f ins-st.ptr  :  ptr.strans); 

(♦tnis  visits  each  suotrans  in  a  committing  transaction  so 
tnat  each  atomic  action  can  oe  visited*) 
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BEGIN   (*find  st  commit*) 

if  fins-st.ptr  <>  mi  rh£N 
BEGIN   (*1*) 

f ind.aa-commit (f ins-st-ptr* , aa-ptr) ? 
f ina.st-commitCf ins.st-ptr* .nxt ) ; 
END?   C*1*J 
END?   (*find  st  commit*) 

(*  main  loop  commit  *) 
BEGIN 

wRITELNCaudit, 'committing  transaction   ====>   ', 
com. tr-ptr* .trans-sice. init-site  :  4, 
com-tr-ptr*. trans-site. trans-num  :  4); 
find-st-coromitc com-tr-ptr*. st-ptr) ; 
(♦remove  tnls  transaction" from  the  structure  as  it  nas 

committed* ) 
IF  com-tr-ptr  =   trans-ptr  rh£N 
trans-ptr  :=  com-tr-ptr*. nxt 
ELSE 

BEGIN   (*1*) 

tviptr  :=  trans-ptr? 

while  tviptr*. nxt  <>  com-tr-ptr  ou 

tviptr  :=tviotr*.nxt; 
tviptr*. nxt  :=  com-tr-ptr*.nxt ; 
End;    (*1*) 
6VQ;         C*commit*) 

(**^**»**»»«^»^**»*#**#*********  +  *****:«t*******»***J!:********) 

PRGCEDbKE  glooal-sr; 

t*  tnis  procedure  is  called  in  tne  main  prooram's  ao  forever 
loop  ana  will  insure  tne  global  serializaoility  of  tne 
atomic  action  seguence  *) 

VAR 

temp-tr-ptr  :  otr-trans? 

commit. fig,  giooai-flg  :  boolean? 

nil.cn-ptr  :  ptr-cn? 

BEGIN 

temp-tr-ptr  :=  trans-ptr? 
while  temp-tr-ptr  <>  nil  DO 
BEGIN 

IF  temp-tr-ptr*. st-qty  a 

temp-tr-ptr*.st-f in-qty    i'HLN 
BEGIN 

IF    ( temp-tr-ptr* . trans-cn-Ptr   =   nil) 


185 


and  ( temp.tr. rtr^.st.qty 

=  teflip«tr-ptr*.st«tr.qty)  then 

BEGIN 

WKITELN  (audit,  'transaction  ', 

tei»p«tr»ptr*ttrahs«site.init«.site, 

tem  p.  tr-ptr*. trans. site. trans-nufn:j, 
is  tCr)  from  gloDal.sr ' ) ; 
commit  ( temp.tr. ptr) 
END   (*  IF  THEN  *)  ' 
ELSE  BEGIN 

glocal.flg  :=  true; 
commit. fig  :=  false; 
nil. en. ptr  :=  nil; 

detect. global. sr    (global. fig,    coinmit-flg, 

temp.tr. ptr,  nil.cn. ptr) ; 
IF  commit. fig  ano  ( temp.tr.ptr * . st.oty 
=  temp.tr-Ptr*. st.tr. atyj  then 
commit  C temp.tr. ptr ) 
EwD   (*  If    ELSE  *) 
END;   (*'IF  THEN  *) 
temp.tr.ptr  ;=  temp.tr. ptr*. nxt 
END   (*  WHILE  *) 


END; 


;************.t******.«***********.x*************  ******  *******) 
(********»**************»**********************************) 

(*  tnis  program  is  an  adaptive  optimistic  concurrency 
controller  *) 

(*  main  program  *) 
BEGIN 

REWRITE  (audit); 

REWRITE  (data); 

RESET  (trans); 

RESET  (datadic); 

R£S£X    (dobj); 

Rc:st:i   (runfile); 

(*  Duild  the  transaction  file  *) 

bldtx; 

*RIT£LN  (audit,  'tne  transaction  tile  *as  built'); 

(*  ouild  tne  data  dictionary  *) 
b  1  d  d  i  c ; 

4RITELN  (audit,  'tne  data  dictionary  was  ouilt'j; 

(*  Duild  tne  data  ODject  dataoase  *) 

blddo; 

oRITELN  (audit,  'tne  data  coject  database  vvas  ouilt'); 
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(*&uild  the  tv,ch  environment  it  required*) 

WRITELN('do  you  aant  to  reao  tv  or  en,  y  or  n  i')} 

*RIT£DN  (audit,  'tne  tv,cn  environment  was  Duilt'j; 

readln(ch) ; 

cnec*. stop (stop run, en)  ; 

IF  Ccn  =  "/')  or  ten  =  'y')  then 

saventv; 
concntv; 
prselect ; 
CLOSE(data); 

enter. time-delay  (time-delay); 

aRUELw  (audit,  'time  delay  constant  enierea  :  ', 
time-delay) ; 

enter. random. seed  (seed); 

*RITELN  (audit,  'random  seen  value  entered  :  *,seed); 

(*  initialize  atomic  action  re. execution  list  *) 
reexec.ptr  :=  nil; 

aHIXELN  ('Enter  a  carriage  return  to  cegin  execution  :'); 
REadLn; 


ch  :=  'y'; 

*n!LE  Ch  = 


'  M    '  I 


DO 


BEGIN 

new (purge. list. ptr); 
purge„list.ptr*,nxt  :=  nil; 
tj£j»(purge-list-ptrA  . pair-ptr  )  ; 
FOR  i  :=  1  TO  100U  DO" 
BEGIN 

(*  call  receive  message  *) 

(*  execute  eacn  atomic  action  and  related 

control  *) 
execute  (seed, time-aeiay) ; 

(*  insure  tnat  actions  are  serializable  *) 
giooai.sr; 

(*  this  code  disposes  ot  no  longer  needed 

conflict  hist  noaes  *) 
tvl.purge  :=  purge-iist-ptr; 
*nILE  purge. list. ptr  <>  nil  do 
BEGIN 

purge-list. ptr  :=  purge. llst-ptr* .nxt; 
DISPQSE(tvl-purge".palr-ptr); 
DlSPOS£(tvl. purge) ; 
tvl-purge  :=  purge. list.ptr; 
END; 
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Ntw(ourge.iist-ptr); 
purye_list.ptr*.nxt    :=   nil; 
Ntw(purge.iist-.ptr*.Pdir.ptr); 
end;" 

IF   trans. ptr   »   nil   then 
BEGIN 

rfRITELN    (audit, 

'Ail  transactions  are  finisned  lii'j; 
6»RITELN  ('All  transactions  are  fiinisned  "J 1 1  * ) 
end; 
*PITELN  ('Continue  main  loop  .....  "y"  or  "n".*j; 
READbiN  (en); 

cnecK.stop  (stoprun,  en) 
END; 
REWRITE  (data); 
prseiect; 
CLOSE  (data) 

end.   (*  program  algo-test  *) 

(**************************  *******  *************************) 
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APPfcNUlX  C 
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1  1  2 
no  con 
creati 

i  3  i 
no  con 
market 

1 
releas 
lockin 
mark«t 

1 
creati 

1  4  1 
conf li 
const 
conf li 
tne  va 
mark-t 
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flict 
ng  a  t 

1  4 
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cnecking  d 

13  11 
conflict 
conflict 
entering 

i    4 
cnecking 

14  12 
conflict 
conflict 
creating 

12  12 
conflict 
const  prec 
conflict  h 
creating  a 

112  2  4 
conflict  i 
const  prec 
conflict  h 
release  lo 
tne  value 
entering  t 

1    2 
checking  d 


rolback  an  aa,tv  that  was  not  there 
2    2    4 
ck  atomic  action  : 

n  is  removing  ch"s  for  rolloacK 
ck  temp  version  : 

ck  for  d,o.  l 

ck  atomic  action  : 

h  is  removing  ch"s  for  rollbacx 
ck  temp  version  : 

ta  obj    4 

of  "s"  was  set  to:     1 
temp  version  for: 

t  is  detected  at     4 
ver  marking  : 

1    1    4 
ver  marking  : 

i    2    2 
ck  for  d,o,  4 

ta  odj    4 
his  aa  in  the  lock  queue 

1    1 
eaalocK  for  aa    : 

s  detected  at      4 

istory  constructed  at  4 

nis  aa  in  the  lock  queue 

1  2 
eaclock  for  aa    : 

s  aetected  at      3 
istory  constructed  at  3 

temp  version  for: 

s  aetectea  ac      3 

rel  at  d.o.  3 

istory  constructed  at  3 

temp  version  for: 

s  detected  at      4 

rel  at  a.o.  4 

istory  constructed  at  4 

ck  for  d,o.  2 

of  Hs"  was  set  to  :     1 
his  aa  in  the  lock  queue 

2  2 
eadlock  for  aa  : 
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1 
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rollbacK-.cn  is 
creating  a  tern 

13  114 
conflict  is  de 
const  prec  rei 
contlict  nistc 
creating  a  terr- 

14  12  3 
conflict  is  de 
const  prec  rel 
conflict  nisto 
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